Bonjour à tous,
Je vois qu'il y a des petits soucis
Pour palier le maque du split en version 97 voici une autre solution
Sub toto()
x = ActiveCell
Pos = InStr(x, Chr(10))
While Pos > 0
x1 = Mid(x, 1, Pos - 1)
MsgBox x1
x = Mid(x, Pos + 1)
Pos = InStr(x, Chr(10))
Wend
MsgBox x : dernier morceau sur lequel on peut tester si vide
End Sub