Supprimer espace

bonjour,

pourriez vous m'aider a supprimer les espaces de cette exemple svp

exemple : 0491 7037 4716 7546

resultat voulu : 0491703747167546

et pour cela dans les colonnes de A à F en selectionnant jusqu'a la derniere cellule

merci d'avance de votre aide

Sub EnleverEspaces()

derLig = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For Each c In Range(Cells(1, 1), Cells(derLig, 6))
    c.Value = Replace(c.Value, " ", "")
Next

End Sub

Bonjour,

=SUBSTITUE(A1;" ";"")

Cordialement.

je te remercie c'est super

bonne journéé