Oui, bon j'ai abandonné la formule et j'ai utilisé une bonne veille boucle.
DerLigne = ws.Cells(65536, 3).End(xlUp).Row
'Traduction de la formule :
'=SI(GAUCHE(AI15;2)="DZ";"NAF";SI(GAUCHE(AI15;2)="LY";"NAF";SI(GAUCHE(AI15;2)="TN";"NAF";SI(GAUCHE(AI15;2)="MA";"NAF";"OTHER"))))
'initialisation
i = 15
'boucle
For i = i To DerLigne
If Cells(i, 37) Like "DZ*" Then
Cells(i, 37).Value = "NAF"
ElseIf Cells(i, 37) Like "LY*" Then
Cells(i, 37).Value = "NAF"
ElseIf Cells(i, 37) Like "TN*" Then
Cells(i, 37).Value = "NAF"
ElseIf Cells(i, 37) Like "MA*" Then
Cells(i, 37).Value = "NAF"
Else: Cells(i, 37).Value = "OTHER"
End If
Next
Bon w-k.