Aide pour extraire des valeur

Bonjours,

je recherche un code VBA pour extraire les 4 premières valeurs des cellules de la colonne a2.

et mettre les valeur trouver dans la colonne b2.

EXEMPLE : A1 = MATRICULE B1 = Matricule

A2= 0025-EMANUEL après extraction B2 = 0025

A3= 0001 John B3= 0001

merci de votre aide

Bonsoir,

si le matricule est toujours composé de 4 caractères

en B1 mettre

=GAUCHE(A1;4)