Private Sub Enregistrer_Click()
Set recap = Sheets("Recap ebdo")
Set eval = Sheets("Evaluations")
lig = 0
For col = 0 To 18 Step 2
temp = eval.Range("C9").Offset(0, col)
recap.Range("b3").Offset(lig, 0) = recap.Range("b3").Offset(lig, 0) + _
eval.Range("C9").Offset(0, col)
lig = lig + 1
Next col
For col = 0 To 18 Step 2
temp = eval.Range("C19").Offset(0, col)
recap.Range("c3").Offset(lig, 0) = recap.Range("c3").Offset(lig, 0) + _
eval.Range("C19").Offset(0, col)
lig = lig + 1
Next col
For col = 0 To 18 Step 2
temp = eval.Range("C19").Offset(0, col)
recap.Range("d3").Offset(lig, 0) = recap.Range("d3").Offset(lig, 0) + _
eval.Range("C24").Offset(0, col)
lig = lig + 1
Next col
End Sub