Sub mlk()
For i = 0 To 15
feuille = Sheets("calcul").Range("i5").Offset(i, 0)
Sheets(feuille).Range("c5") = Sheets("calcul").Range("b5").Offset(i, 0)
Sheets(feuille).Range("b3") = Sheets("calcul").Range("f5").Offset(i, 0)
Sheets(feuille).Range("c3") = Sheets("calcul").Range("g5").Offset(i, 0)
Sheets(feuille).Range("d3") = Sheets("calcul").Range("h5").Offset(i, 0)
Sheets("calcul").Range("j5").Offset(i, 0) = Sheets(feuille).Range("L21")
Next i
End Sub