Autres Comment puis-je m'en sortir?

Option Explicit

Sub ChangerNumeroAfficherSemaines()
    Dim Semaine As Long
    If MsgBox("Voulez-vous Changer de semaine ", vbQuestion + vbOKCancel, "Annuler") = vbOK Then
        Range("AE1").Value = Range("AE1").Value + 1
        ActiveWindow.FreezePanes = False
        Semaine = Range("AE1").Value
        Rows((Semaine * 5) + 4).Select
    End If
    Application.ScreenUpdating = True
    If MsgBox("Voulez-vous Afficher les Semaines", vbQuestion + vbOKCancel, "Annuler") = vbOK Then
        Semaine = Range("AE1").Value
        Rows.Hidden = False
        Range("AE1:AE1").Interior.ColorIndex = 36
        ActiveWindow.FreezePanes = False
        Rows(3).Select
    End If
    ActiveWindow.FreezePanes = True
    Range("A1").Select
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Range("AE1"), Target) Is Nothing Then
      Application.ScreenUpdating = False
        NoSem = DateSerial(Year(Date + (8 - Weekday(Date)) Mod 7 - 3), 1, 1)
        Range("AE1").Value = ((Date - NoSem - 3 + (Weekday(NoSem) + 1) Mod 7)) \ 7 + 1
    End If
  Application.ScreenUpdating = True
End Sub