Citation :
Sub toto()
chaine1 = Cells(1, 1)
ichar10 = 0
j = 1
For i = 1 To Len(chaine1)
If Mid(chaine1, i, 1) = char(10) Then
Cells(j, 2) = Mid(chaine1, ichar10 + 1, i - 1 - ichar10)
j = j + 1
ichar10 = i
End If
Next
Cells(j, 2) = Mid(chaine1, ichar10 + 1, i - 1 - ichar10)
End Sub
|