Extraire une chaine de caractères avant une ponctuation ";"

Bonjour,

je dispose d'un fichier Excel "historique" provenant d'un outil de gestion d'incident.
La description de l'incident est comme suit : "Nom Prénom : incident ".
Je souhaite créer une macro me permettant d'extraire les noms et prénoms pour chaque ligne :

soit i, le numéro de ligne
A, la colonne de description de l'incident
B, la colonne "Nom prénom " (actuellement vide)


For i=2 (initialisation)
if (A (i)) <> "") then i=i+1 (on commence à la première ligne vide)
else
B(i) =[tous les caractères avant ";"] dans la cellule A(i)

Comment traduire cela en VBA s'il vous plait ?

(le fichier contient près de 700 lignes, et ça risque d'être un peu long si je fais ça "manuellement").

Merci pour votre aide.

Cordialement,

D.