Re,
Okay, tu veux donc supprimer tous les espaces
Ci-dessous fonction personnalisée (VBA) à utiliser comme une fonction de feuille de calcul (telle 'Supprespace').
Option Explicit
Public Function Supp(Cellule As String) As String
If Cellule = "" Then Exit Function
Supp = Replace(Cellule, " ", "")
End Function