Microsoft 365 Trouver des données identiques qui se suivent

Sub Doublons()
    Dim rng As Range
    Dim i As Long
    Dim LastRow As Long

    LastRow = ThisWorkbook.Sheets("Feuil1").Cells(Rows.Count, "A").End(xlUp).Row

    ' Définir la plage à la colonne A (changez selon vos besoins)
    Set rng = ThisWorkbook.Sheets("Feuil1").Range("A1:A" & LastRow)

    For i = 1 To rng.Cells.Count
        ' Vérifier si la cellule actuelle est égale à la précédente ou à la suivante
        If i = 1 Then
            'Si la colonne commence à la ligne 1, vérifiez seulement si elle est égale à la suivante
            If rng.Cells(i, 1).Value = rng.Cells(i + 1, 1).Value Then
                rng.Cells(i, 1).Interior.Color = RGB(255, 255, 0)
            End If
        Else
            If rng.Cells(i, 1).Value = rng.Cells(i - 1, 1).Value Or rng.Cells(i, 1).Value = rng.Cells(i + 1, 1).Value Then
                rng.Cells(i, 1).Interior.Color = RGB(255, 255, 0)
            End If
        End If
    Next i
End Sub