Sub toto()
'Après déclaration des variables...
Dim oPlg As Range, oCel As Range
'...définition de la plage à traiter...
Set oPlg = Range("A2:A21")
'...inhibation du rafraichîssement de l'écran, de la prise en
'compte des évènements qui pourraient déclencher des procédures
'évènementielles, du calcul automatique des formules...
'(Cette précaution permet potentiellement une exécution rapide.)
With Application: .ScreenUpdating = 0: .EnableEvents = 0: .Calculation = -4135: End With
'...examen de chaque cellule de la plage à traiter...
For Each oCel In oPlg.Cells
'...et adjonction d'un zéro en tête du contenu de la cellule
'lorsqu'elle contient 8 caractères...
If Len(CStr(oCel.Value)) = 8 Then oCel.Value = "'0" & CStr(oCel.Value)
Next
'...puis rétablissement du rafraichîssement de l'écran, de la
'prise en compte des évènements qui pourraient déclencher des
'procédures évènementielles, du calcul automatique des formules.
With Application: .Calculation = -4105: .EnableEvents = 1: .ScreenUpdating = 1: End With
'Terminé !
'
' Pour connaître exactement la signification de, par exemple,
' EnableEvents, Set, ou tout autre mot, le sélectionner et
' presser la touche F1 : l'aide fournie par Microsoft est
' à disposition de tout un chacun...
'
End Sub