Algorithme qui ne fonctionne pas

bonjour a tous un premier algo Application.Calculation = xlCalculationAutomatic Application.Goto Reference:="temps" Sub combi() Range("a3:g118757").ClearContents x = 2 Range("L6") = Now Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For a = 1 To 25 For b = a + 1 To 26 For c = b + 1 To 27 For d = c + 1 To 28 For e = d + 1 To 29 x = x + 1 somcombi = Cells(1, a) + Cells(1, b) + Cells(1, c) + Cells(1, d) + Cells(1, e) pairimpaircombi = Cells(1, a) Mod 2 + Cells(1, b) Mod 2 + Cells(1, c) Mod 2 + Cells(1, d) Mod 2 + Cells(1, e) Mod 2 Range("A" & x) = Cells(1, a) Range("B" & x) = Cells(1, b) Range("C" & x) = Cells(1, c) Range("D" & x) = Cells(1, d) Range("E" & x) = Cells(1, e) Range("F" & x) = somcombi Range("G" & x) = pairimpaircombi Next Next Next Next Next Range("L7") = Now Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub la durée du temps de calcul du temps de travail s'affiche bien heure de début et de fin du travail et temps mis pour calculer en L7 mon second algo Sub Sauvegarde() Application.DisplayAlerts = False If Len(Dir("C:\Users\jacques\Documents\jeux loto", vbDirectory)) > 0 Then ActiveWorkbook.SaveAs Filename:="C:\Users\jacques\Documents\jeux loto\" & ActiveWorkbook.Name, CreateBackup:=False End If If Len(Dir("g:\loto", vbDirectory)) > 0 Then ActiveWorkbook.SaveAs Filename:="G:\loto\" & ActiveWorkbook.Name, CreateBackup:=False End If If Len(Dir("E:\loto", vbDirectory)) > 0 Then ActiveWorkbook.SaveAs Filename:="E:\loto\" & ActiveWorkbook.Name, CreateBackup:=False End If If Len(Dir("F:\loto", vbDirectory)) > 0 Then ActiveWorkbook.SaveAs Filename:="F:\loto\" & ActiveWorkbook.Name, CreateBackup:=False End If ActiveWorkbook.SaveAs Filename:="C:\Users\jacques\onedrive\loto\jeux loto\ " & ActiveWorkbook.Name, CreateBackup:=False Range("N7") = Now Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub seul en L7 affiche l'heure de début L heure de fin et le temps ne s'affiche pas ou est l'erreur merci a tous