Sub test()
Dim k%, der_lig%, Ttl As Long, Lign As Long
With Sheets("Apport")
der_lig = .Range("A65536").End(xlUp).Row
.Rows("16:" & der_lig + 2).Delete
Lign = 14
Ttl = Ttl + Application.WorksheetFunction.Sum(.Range("B" & Lign & ":D" & Lign))
For k = 1 To Sheets("données").Range("B3").Value - 1
der_lig = .Range("A65536").End(xlUp).Row
.Range("A1:E14").Copy Destination:=.Range("A" & der_lig + 2 & ":E" & der_lig + 15)
.Cells(der_lig + 2, 1).Value = "Associé " & k + 1
Lign = Lign + 15
Ttl = Ttl + Application.WorksheetFunction.Sum(.Range("B" & Lign & ":D" & Lign))
Next k
End With
Sheets("données").Range("B9") = Ttl
End Sub