XL 2019 [VB] Organisation et gestion du ménage et de l'entretien global (à améliorer)... Comment procéder ?

Sub ColorerLosanges()
    Dim wsCalendrier As Worksheet
    Dim wsAgenda As Worksheet
    Dim annee As Integer
    Dim mois As Integer
    Dim premierJour As Date
    Dim dernierJour As Date
    Dim i As Integer, j As Integer
    Dim dateCell As Date
    Dim semaineBonne As Boolean
    Dim numSemaine As Integer

    ' Définir les feuilles
    Set wsCalendrier = ThisWorkbook.Sheets("Calendrier")
    Set wsAgenda = ThisWorkbook.Sheets("Agenda")

    ' Effacer les couleurs existantes
    wsCalendrier.Cells.Interior.ColorIndex = xlNone

    ' Récupérer l'année et le mois (à adapter selon tes besoins)
    annee = wsCalendrier.Range("B1").Value ' Supposons que l'année est en B1
    mois = wsCalendrier.Range("B2").Value  ' Supposons que le mois est en B2

    ' Calculer le premier jour du mois
    premierJour = DateSerial(annee, mois, 1)
    dernierJour = DateSerial(annee, mois + 1, 1) - 1

    ' Boucle pour chaque jour du mois
    For i = 1 To Day(dernierJour)
        dateCell = DateSerial(annee, mois, i)
        numSemaine = DatePart("ww", dateCell, vbMonday) ' Numéro de la semaine

        ' Vérifier si la semaine est "bonne" dans l'onglet Agenda
        semaineBonne = (wsAgenda.Range("B" & numSemaine + 1).Value = "Bonne")

        ' Colorer le losange en vert si la semaine est bonne
        If semaineBonne Then
            ' Supposons que les losanges sont dans la plage D10:AF30 (à adapter selon ton fichier)
            wsCalendrier.Cells(9 + Int((i - 1) / 7), 4 + ((i - 1) Mod 7)).Interior.Color = RGB(0, 255, 0) ' Vert
        End If
    Next i
End Sub