Selection automatique par boucle

Bonjour le forum, je viens solliciter encore une fois votre aide pour réaliser une boucle.

Ci-joint un fichier test.

Je souhaite réaliser une boucle pour faire ceci :

Colorer en jaune le numéro de machine (la même machine) qui tombe en pannes au moins (2) deux fois (deux fois la même panne), le même jour.

Le résultat attendu correspond aux lignes colorées en jaune.

Merci pour votre aide, bon dimanche.

Cordialement,

Bonjour,

Sub PannesRépétées()
    Dim i%, j%, pan$
    With [Pannes]
        .Sort key1:=.Cells(1, 2), order1:=xlAscending, key2:=.Cells(1, 1), order2:=xlAscending, _
         key3:=.Cells(1, 3), order3:=xlAscending, Header:=xlNo
        Application.ScreenUpdating = False
        For i = 1 To .Rows.Count
            pan = .Cells(i, 1) & .Cells(i, 2).Value2 & .Cells(i, 3): j = 0
            Do While .Cells(i + j + 1, 1) & .Cells(i + j + 1, 2).Value2 & .Cells(i + j + 1, 3) = pan
                j = j + 1
            Loop
            If j > 0 Then
                .Cells(i, 1).Resize(j + 1, 3).Interior.Color = vbYellow
                i = i + j
            End If
        Next i
    End With
End Sub

NB- Le tableau des pannes est nommé Pannes.

Cordialement.

Bonjour Monsieur MFerrand,

c'est exactement ce que je voulais.

Merci pour votre aide.

Bon dimanche.

Cordialement,