Problème avec SUBSTITUTE

Bonjour
Je souhaiterais supprimer tous les espacements d'une liste de valeurs.
J'ai essayé SUBSTITUTE mais ça ne va pas
Une piste SVP merci

Code:

---

1 2 3 4 5 6 7 8 9

Sub SubstituteColonne() 'supprimer les espaces dans les valeurs de la colonne A Set f = Sheets("BD") derlig = f.Range("A" & Rows.Count).End(xlUp).Row   For i = 2 To derlig Cells(i, 1) = Substitute(Cells(i, 1), " ", "") Next End Sub

---

J'ai trouvé la solution:

Code:

---

Range("A:A").Replace What:=" ", Replacement:=""

---

C'est clos