Juste pour dire que je voulais poster la même réponse que toi Bertrand et qu'en fait, supprespace supprime les espaces en doubles, mais laisse les simples, donc dans le cas de Habiler, ca ne va pas fonctionner...
Sinon via une macro (en supposant que ta chaine soit en colonne A, le résultat sera en colonne B) :
Code:
Sub test()
Dim i%, k%, chaine As Variant, res$
For k = 1 To 10
chaine = Split(Range("A" & k).Value, " ")
For i = 0 To UBound(chaine)
res = res & chaine(i)
Next i
Range("B" & k).Value = res
res = ""
Next k
End Sub