XL 2021 Calendrier des marées info

Sub Mareee()

    a = Year(Worksheets("Calendrier").Range("B1"))
    m = Month(Worksheets("Calendrier").Range("B1"))
    j = ActiveCell.Value

    With Worksheets("Marees")

        For I = 2 To 11

            If .Cells(I, 1) = (j) & "/" & (m) & "/" & (a) Then
               
                Forme.Label29 = .Cells(I, 3).Value
                Forme.Label30 = .Cells(I, 4).Value
                Forme.Label31 = .Cells(I, 2).Value
                Forme.Label32 = .Cells(I, 6).Value
                Forme.Label33 = .Cells(I, 7).Value
                Forme.Label34 = .Cells(I, 5).Value
               
            End If

        Next I

    End With

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not IsNumeric(ActiveCell) Or ActiveCell = "" Then
        Exit Sub
    Else

        With Forme
            .StartUpPosition = 1
            .Show 0
            a = Year(Range("B1"))
            m = Month(Range("B1"))
            j = ActiveCell.Value
            Worksheets("Lune").Range("G1").Value = DateSerial(a, m, j)
            Set LeGraph = Worksheets("Lune").ChartObjects(1).Chart
            NomImage = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
            LeGraph.Export Filename:=NomImage, FilterName:="GIF"
            .Image1.Picture = LoadPicture(NomImage)
            ''''''''''''''''''''''''''''''''''''''''''''''''''''
           
            calculer
            fete
            Mareee
           
            ''''''''''''''''''''''''''''''''''''''''''''''''''''
            If Not ActiveCell.Comment Is Nothing Then
                .Label2.Caption = ActiveCell.Comment.Text
            Else
                Forme.Label2.Caption = ""
            End If

            .Label4.Caption = ""
            .Label4.Caption = "Le" & " " & ActiveCell.Value & " " & ActiveSheet.Range("B1").Value 'Offset(1, 0)
            ladate = (Year(ActiveSheet.Range("B1").Value) & "/" & (Month(ActiveSheet.Range("B1").Value) & "/" & Day(ActiveCell.Value)))
            .Label19.Caption = "Semaine n° " & DatePart("ww", ladate, vbMonday, vbFirstFourDays) 'code pour n° de semaine', "WW", vbMonday)
        End With
    End If
End Sub

    With Worksheets("Marees")
        For I = 2 To 11