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 : Sélectionner tout - Visualiser dans une fenêtre à part
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