Etudiante en détresse ! Erreur d'exécution '9'

Bonjour à tous ! 

Je suis étudiante en médecine et utilise un fichier excel comme agenda. Celui-ci contient du code et je n'ai absolument aucune idée de comment il fonctionne, ce qui ne pause aucun problème, sauf quand il y a un bug ...

Dernièrement, lorsque je veut consulter mon calendrier, excel dit qu'il y a "Erreur d'exécution '9' : l'indice n'appartient pas à la sélection. la ligne "Set ShCours = Worksheets("Cours") " est surlignée en jaune par le débogeur.

Option Explicit
Public shCours As Worksheet, shCal As Worksheet

Sub majCal()
    Dim lig1 As Long
    Dim c As Range, adr1 As String, dat As Date
    Dim i As Long

    Set shCours = Worksheets("Cours")
    Set shCal = Worksheets("Calendrier")
    
    Application.ScreenUpdating = False
    ' maj cal
    With shCal
        .[B2:ZZ150].Delete
        For lig1 = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
            i = 0
            If IsDate(shCal.Cells(lig1, 1)) Then
                dat = CDate(shCal.Cells(lig1, 1))
                With shCours.Range("B:G")
                    Set c = .Find(dat, LookIn:=xlValues)
                    If Not c Is Nothing Then
                        adr1 = c.Address
                        Do
                            i = i + 1
                            shCal.Cells(lig1, 1).Offset(, i) = shCours.Cells(c.Row, 1)
                            If c.Interior.Color <> 16777215 Then shCal.Cells(lig1, 1).Offset(, i).Interior.Color = c.Interior.Color
                            Set c = .FindNext(c)
                        Loop While c.Address <> adr1
                    End If
                End With
            End If
        Next lig1
    End With
End Sub

J'espère que vous pourrez m'aider ! 

Merci par avance, 

Lia
Windows / Edge 109.0.1518.55