Le problème c'est qu'il y a du texte en plus du numéro dans chaque cellule... Et il ne me faut que le numéro, pas le reste...
J'ai trouvé cette fonction, mais elle est assez lente, je ne sais pas si il y a moyen de l'optimiser (j'ai plusieurs milliers de lignes à tester...) :
If Cells(ligne, 1) Like "*" & "A####" & "*" Then
p = 1
Code= ""
Do While p <= Len(Cells(ligne, 1)) - 4 And Code= ""
If Mid(Cells(ligne, 1), p, 5) Like "A####" Then
Code= Mid(Cells(ligne, 1), p, 5)
Else: p = p + 1
End If
Loop
Cells(ligne, 3) = Code