Salut Yvanhof et André,
La version macro donnerait ceci :
Sub Séparer_les_mots()
Dim CL As Range, P As Integer
For Each CL In Selection
P = InStr(CL.Text, " ")
If P > 0 Then
CL.Offset(0, 1) = Right(CL.Text, Len(CL.Text) - P)
CL = Left(CL.Text, P - 1)
End If
Next
End Sub
Avantage : il n'est pas nécessaire de créer une nouvelle colonne.
A+
Horatio