VBA avancé

Sub ventiler_numero()
Dim Num As Object
Dim Cptr As Byte, Ref As Long
 Dim nbre As Byte, lig As Integer, fin As Integer, T_out
 
With Sheets("param")
     Set Num = CreateObject("scripting.dictionary")
'liste des numéros
     For Cptr = 2 To 28
          Ref = .Cells(Cptr, 1)
          Num.Add Ref, Ref
     Next
 End With
 
 With Sheets(1)
     nbre = Application.CountA(.Range("B2:B65500"))
     lig = 1
     For Cptr = 1 To nbre
          lig = .Columns(2).Find("*", .Cells(lig, 2)).Row
          If Num.exists(.Cells(lig, 2).Value) Then
               fin = .Columns(2).Find("*", .Cells(lig, 2)).Row - 1
                         If fin = 0 Then fin = .Range("E65500").End(xlUp).Row
                T_out = .Range(.Cells(lig, 3), .Cells(fin, 8)).Value
          End If
     Next
          ' EN ATTENTE DESTINATION
 End With
     
End Sub

Sub convertir()
T_chifre = Application.Transpose(Range("B2:B" & Range("B65500").End(xlUp).Row).Value)
For cptr = 1 To UBound(T_chifre)
     If T_chifre(cptr) <> "" Then T_chifre(cptr) = CLng(T_chifre(cptr))
Next
Range("B2:B" & Range("B65500").End(xlUp).Row) = Application.Transpose(T_chifre)
End Sub