Sub ligne_par_ligne()
tablo = Range("DJ1:DU" & Range("DJ" & Rows.Count).End(xlUp).Row)
derligne = Range("CV" & Rows.Count).End(xlUp).Row
If Range("CV1") <> "" Then derligne = derligne + 1
If derligne > UBound(tablo, 1) Then
MsgBox ("tout copié !!!")
Exit Sub
End If
col = 99
For n = LBound(tablo, 2) To UBound(tablo, 2)
Cells(derligne, n + col) = tablo(derligne, n)
Next n
End Sub