Option Explicit
Sub Enregistrer()
Dim plage As Range, cel As Range, lig As Integer
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
With Sheets("Data")
lig = .Range("a65536").End(xlUp).Row + 1
.Cells(lig, 1) = Sheets("Saisie").Range("e5")
.Cells(lig, 3) = Sheets("Saisie").Range("e7")
End With
With Sheets("Data")
Set plage = .Range("b2:b65536")
For Each cel In plage
If Weekday(cel) = 1 And Weekday(cel) = 7 Then
Sheets("Saisie").Range("e9").ClearContents
ElseIf Weekday(cel) = 6 Then
cel.Offset(, 2).FormulaR1C1 = IIf(cel.Row > 2, "=SUM(R[-4]C[-1]:RC[-1])", "=SUM(R[-4]C[-1]:RC[-1])")
Exit For
End If
Next cel
End With
Sheets("Saisie").Range("e5, e7").ClearContents
'Application.DisplayAlerts = False
'ActiveWorkbook.Save
End Sub