Bonjour,
Un formatage de la cellule ne sert à rien car la valeur est toujours la même. Il te faut manuellement ajouter ce 0. Soit tu utilise la proc ci-dessous en adaptant la colonne cible, soit tu utilise le copier/Collage spécial.
Pour le collage spécial tu entre la valeur 10 dans une cellule libre (n'importe laquelle) puis tu là copie (Ctrl+C) ensuite, tu sélectionne toute la plage où tu veux ajouter le zéro tu clique sur le menu "Edition" --> "Collage spécial" choisir "Multiplication" et enfin OK.
Sub AjouterZero()
Dim Plage As Range
Dim Cel As Range
'sur colonne A de la feuille active, à adapter...
With ActiveSheet
Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
End With
For Each Cel In Plage
Cel.Value = Cel.Value * 10
Next Cel
End Sub
Hervé.