Sub Convertir_Transposer()
With Sheets("2-convertir")
.Rows(1).ClearContents 'RAZ
.Cells(1) = Trim(Sheets("1-données").Cells(1))
.Cells(1).TextToColumns .Cells(1), xlDelimited, Space:=True
Sheets("3-mis en forme").Columns(1).ClearContents 'RAZ
With .UsedRange.Rows(1)
Sheets("3-mis en forme").Cells(1).Resize(.Columns.Count) = Application.Transpose(.Value)
End With
End With
End Sub