Bonjour Theze et frangy,
merci pour les idées, du coup je reste sur du simple vu que "normalement" le test ne devrait pas dépasser les 48h (j'avais peur qu'on ai 1XX heures ce qui aurait pu être problématique avec la fonction split) :
Public Sub DerniereLigne()
Dim DerniereColonne As Integer
DerniereColonne = Cells(25, Columns.Count).End(xlToLeft).Column
For i = 2 To DerniereColonne
j = Cells(Rows.Count, i).End(xlUp).Row
Cells(21, i) = Split(Cells(j, i), Chr(10))(0)
Cells(22, i) = Split(Cells(j, i), Chr(10))(1)
Next i
End Sub