Compléter chaine

Bonjour,

Je vous expose mon problème. En colonne A, j'ai des codes numériques (pour l'exemple je n'ai pris que 100 lignes) dont la longueur diffère. Je voudrais compléter ces codes en ajoutant des 0 (zéros) à la fin de telle sorte que la longueur de chaine soit de huit.

ex: 6540 ---------->65400000. Etant donné que les chaines sont de différentes longueurs, je ne sais pas comment rajouter les '0' manquants. J'ai commencé ainsi

Sub CompléterChaine()
    Dim C As Range
    For Each C In Range("A2:A100")
        If C.Value <> "" And Len(C.Value) < 8 Then C.Offset(, 1).Value = C.Value & "nb 0 pour que longueur de chaîne = 8"
    Next C
End Sub

En vous remerciant.

Je viens de trouver la solution, merci d'avoir consulter

Sub CompléterChaine()
Dim x As Integer
    Dim C As Range
    For Each C In Range("a2:a" & Range("a" & Rows.Count).End(xlUp).Row)
    x = Len(C)

        If C.Value <> "" And Len(C.Value) < 8 Then
        Select Case x
        Case 1
        C.Offset(0, 1) = C.Value & "0000000"
        Case 2
        C.Offset(0, 1) = C.Value & "000000"
        Case 3
        C.Offset(0, 1) = C.Value & "00000"
        Case 4
        C.Offset(0, 1) = C.Value & "0000"
        Case 5
        C.Offset(0, 1) = C.Value & "000"
        Case 6
        C.Offset(0, 1) = C.Value & "00"
        Case Else
        C.Offset(0, 1) = C.Value & "0"
        End Select

        End If
    Next C
End Sub

End Sub