Sub recap()
ligne = 2
Feuil2.[A2:I2000].ClearContents 'efface
For lig = 2 To Feuil1.[M65000].End(3).Row
For lg = 1 To Feuil1.Cells(lig, 13)
Feuil2.Range("A" & ligne & ":I" & ligne).Value = Feuil1.Range("A" & lig & ":I" & lig).Value
ligne = ligne + 1
Next
Next
End Sub