Bonjour,
Une autre alternative en VBA pour le Fun
Données en ColA
Sub Essai_Separation()
Dim C As Range, F As String, A As String, DerLig As Long
DerLig = Cells(Rows.Count, 1).End(xlUp).Row
For Each C In Range("A1:A" & DerLig)
If C <> "" Then
F = Left(C, InStr(1, C, " "))
A = Mid(C, InStr(1, C, " "), 20)
C.Value = Trim(F)
C.Offset(, 1).Value = Trim(A)
End If
Next C
End Sub
Bonne Journée