Sub Worksheet_Change(ByVal cible As Range)
Dim T
If Not Intersect(cible, Range("A1")) Is Nothing Then
Application.EnableEvents = False
T = Split(Range("A1").Value, " ")
Range("B3").Resize(UBound(T) + 1, 1) = WorksheetFunction.Transpose(T)
Application.EnableEvents = True
End If
End Sub