Bonjour,
Une syntaxe très générique (à adapter), à partir de ce que j'ai saisie de la problématique :
Sub Test()
Dim Cel As Range
With Sheets("MaFeuille") 'Nom feuille à adapter
For Each Cel In .Range("A1:A100") 'Boucle sur une plage à adapter
If Not Cel Like "AB*" And Not IsEmpty(Cel) Then Cel = "AB" & Cel 'Si non vide et ne commence pas par "AB", ajouter "AB" au contenu existant
Next Cel
End With
End Sub