Code VBA qui récupère les 2 premières lettres d'une valeur

Bonjour

J'aimerais faire comme dans le tableau suivant (pièce jointe)

B2 = A2 sans (nombre)

le faire par code vba

merci

Bonjour,

En formule Excel :

=GAUCHE(A2;2)

Via VBA :

Sub Test()

Dim Lig As Long

With Sheets("NomFeuille")
    For Lig = 2 To .Range("A" & Rows.Count).End(xlUp).Row
        .Range("B" & Lig) = Left(.Range("A" & Lig), 2)
    Next Lig
End With

End Sub