Bonsoir le Forum
Regarde si ceci pourrait t'aider vite fait d'une macro de Alan Beban
Sub Coupe_60Car()
iTotal = Mid(Sheets("Sheet2").Range("A1"), k + 1, 1000) & " "
For j = 2 To 100
For i = 60 To 1 Step -1
If Mid(iTotal, i, 1) = " " Then
k = i
Exit For
End If
Next
Sheets("Sheet1").Cells(j, 1).Value = Mid(iTotal, 1, k - 1)
iTotal = Mid(iTotal, k + 1, 1000)
Next
End Sub
Mytå