Que faire pour accélérer macros Excel

Bonjour,

que faire pour accélérer ma macro

Sub ToggleButton3_Click()
Application.ScreenUpdating = False
ActiveCell.FormulaR1C1 = "10:00"
SELECTION.Copy
    ActiveCell.Offset(0, 1).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWorkbook.Save
If Not ActiveCell.HasFormula And IsDate(ActiveCell.Text) Then _
  If ActiveCell < 1 Then Cancel = True: ActiveCell = Format(ActiveCell + 14 / 48, "hh:mm")
  ActiveCell.Offset(0, 3).Select
Load UserForm1
End Sub

Bonjour,

Es-tu sûr que cela ait un sens ! ?

Sub ToggleButton3_Click()
    With ActiveCell
        .Cells(1, 1) = "10:00"
        .Cells(1, 2) = "17:00"
    End With
    ActiveWorkbook.Save
End Sub

Ta macro ne fait rien d'autre concrètement.

J'ai éliminé deux lignes dont aucun débouché utile n'est présent (et qui, si elles ont une utilité, trouveront place ailleurs).

Cordialement.

Bonjour

merci ca fonctionne bien merci encore

Cordialement