If IsFoundData Then
ActiveCell.Offset(0, 1) = TabData(L, 2)
ActiveCell.Offset(0, 2) = TabData(L, 3)
ActiveCell.Offset(0, 3) = TabData(L, 4)
i = 2 ' ici la modif à faire
Do While (L < UBound(TabData))
If IsEmpty(TabData(L + 1, 2)) Or _
Not IsEmpty(TabData(L + 1, 1)) Then Exit Do
i = i + 2
L = L + 1
ActiveCell.Offset(0, i) = TabData(L, 2)
ActiveCell.Offset(0, i + 1) = TabData(L, 3)
Loop
Else
MsgBox 'Erreur inattendue' & vbCrLf & _
'sortie de procédure', vbCritical + vbOKOnly
End If