hum, comme ca je dirais bien que si la premiere cellule est different de 61 tu ne rentre meme pas dans ta boucle
Tu veux tous les 63 ?
voici un exemple:
Dim Plage As Range
Dim i As Long
Dim Cel As Object
Set Plage = Sheets("Balance").Range("A1:A255")
For Each Cel In Plage
If Left(Cel.Value, 2) = "63" Then
i = i + 1
Worksheets("My B400").Cells(i, 1).Value = Cel.Value
End If
Next
MsgBox i & " entrée(s) copiée(s)"
++