Microsoft 365 Correction du code vba

Sub ParcourirFeuilles()
    Dim feuille As Worksheet
    Dim derniereLigne As Long
    Dim i As Long
    Dim dateJour As Date
    Dim dateLimite3Mois As Date
    Dim dateLimite1Mois As Date
    
    dateJour = Date
    dateLimite3Mois = DateAdd("m", -3, dateJour)
    dateLimite1Mois = DateAdd("m", -1, dateJour)
    
    For Each feuille In ThisWorkbook.Sheets
        If feuille.Index >= 12 Then ' à partir de la 12ème feuille
            derniereLigne = feuille.Cells(Rows.Count, "AA").End(xlUp).Row
            For i = 2 To derniereLigne ' à partir de la 2ème ligne pour exclure les entêtes
                If feuille.Cells(i, "AA").Value = "KO" Then
                    If feuille.Cells(i, "R").Value >= dateJour Then ' vérifier si la date dans la colonne R est postérieure à la date du jour
                        If feuille.Cells(i, "R").Value <= dateLimite3Mois Then
                            feuille.Cells(i, "AA").Value = "N/A"
                            feuille.Cells(i, "AB").Value = "New"
                        End If
                    End If
                    If feuille.Cells(i, "O").Value = "TIN" And feuille.Cells(i, "P").Value = "Internationales" Then
                        If feuille.Cells(i, "R").Value >= dateJour Then ' vérifier si la date dans la colonne R est postérieure à la date du jour
                            If feuille.Cells(i, "R").Value <= dateLimite1Mois Then
                                feuille.Cells(i, "AA").Value = "N/A"
                                feuille.Cells(i, "AB").Value = "New"
                            End If
                        End If
                    End If
                End If
            Next i
        End If
    Next feuille
End Sub