Bonjour K, bonjour le forum,
Avec une boucle et la fonction Split. je reviens...
Sub Macro()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim I As Integer 'déclare la variable I (Incrément)
Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter à ton cas)
TV = O.Range("B1").CurrentRegion 'définit le tableau des valeurs TV
For I = 2 To UBound(TV, 1) 'boucles sur toutes les lignes I du tableau des valeurs TV (en partant de la seconde)
'si il exites des espace sépare les mots
If UBound(Split(TV(I, 1), " ")) > 0 Then
O.Cells(I, "C").Resize(1, UBound(Split(TV(I, 1), " ")) + 1) = Split(TV(I, 1), " ")
Else
O.Cells(I, "C").value=TV(I, 1)
End If
Next I 'prochaine ligne de la bouccle
End Sub