pour enlever les espace le plus simple est de faire une macro
A+
Maurice
Sub Test()
Application.ScreenUpdating = False
Nlig = Range("B" & Rows.Count).End(xlUp).Row
For L = 3 To Nlig
Range("B" & L).Value = Application.Trim(Range("B" & L).Value)
Next
End Sub
Sub Test()
Application.ScreenUpdating = False
Nlig = Range("B" & Rows.Count).End(xlUp).Row
For L = 3 To Nlig
Range("B" & L).Value = Application.Trim(Range("B" & L).Value)
Range("C" & L).Value = Len(Application.Trim(Range("B" & L).Value))
Next
End Sub