Sub MacroExemple()
' cette instruction désactive le rafraîchissement d'écran pour améliorer la rapidité d'exécution
Application.ScreenUpdating = False
' toutes les références de cellules précédées d'un point s'appliquent à Feuil1, ce qui évite de sélectionner la feuille
With Feuil1
' cette boucle lit toutes les cellules de la colonne A qui contiennent des valeurs (attention, les formules ne sont pas prises en compte)
For Each cel In .Range("A:A").SpecialCells(xlCellTypeConstants)
' si la cellule n'est pas vide
If cel <> "" Then
' la cellule située sur la 4ème colonne à droite (E) et sur la même ligne est égale à la concaténation
' de la cellule en A (cel) + les chiffres de gauche de la cellule en B, formatés avec zéro à gauche
If Len(cel.Offset(0, 1)) < 4 Then n = 0 Else n = CInt(cel.Offset(0, 1) / 1000)
cel.Offset(0, 4) = cel & " (" & Format(n, "00") & ")"
End If
Next
End With
' rétablit le rafraîchissement d'écran
Application.ScreenUpdating = True
End Sub