Macro ajout de 0 / Digits

Bonjour à tous,

A l'aide d'une macro que l'on activerait via un Bouton d'action, j'aimerais passer toutes les cellules de ma colonnes A sur 10 digits
ex: 49328607 devient 0049328607
101234556 devient 0101234556

Pourriez-vous m'aider s'il vous plait ?

Je vous remercie d'avance pour votre aide,

Cdt,

Pièce jointe 208439

Alma31

Bonjour,
code sur un bouton placé sur la feuille

Code:

---

1 2 3 4 5 6

Private Sub CommandButton1_Click() Dim Dcel As Range, Plage As Range, Cel As Range Set Dcel = Range("A" & Rows.Count).End(xlUp) Set Plage = Range("A2", Dcel) Plage.NumberFormat = "0000000000" End Sub

---

Merci bcp Casefayere pour votre solution! Cela fonctionne.

Cdt,

Alma31