Sub RemplaceVATcode()
Application.ScreenUpdating = False
DL = [A65000].End(xlUp).Row ' Dernière ligne de Résultat
tablo = Range("AE2:AE" & DL) ' On met la colonne AE dans un tablo pour aller plus vite
For i = 1 To UBound(tablo) - 1 ' Pour tout le tableau (-1 pour s'arreter à l'avant dernière ligne )
If tablo(i + 1, 1) = 44566210 And tablo(i, 1) = "" Then tablo(i, 1) = 448 ' Traitement des différents cas.
If tablo(i + 1, 1) = 44566220 And tablo(i, 1) = "" Then tablo(i, 1) = 444
If tablo(i, 1) = 44562200 Then tablo(i, 1) = 447
If tablo(i, 1) = 44566000 Then tablo(i, 1) = 446
If tablo(i, 1) = 44566320 Then tablo(i, 1) = 443
If tablo(i, 1) = 0 Then tablo(i, 1) = 442
Next i
[AE2].Resize(UBound(tablo, 1), UBound(tablo, 2)) = tablo ' Restitution tableau
End Sub