Bonjour à tous !

Je suis de nouveau bloqué sur un point.

Avant tout, voici une pièce jointe pour les données initiales :
Doublon.xls

J'ai une liste de n°véhicule qui comporte des doublons. Chaque n°véhicule a un état d'avancement attribué. Suivant un meme n°véhicule, l'état peut changer d'une ligne à l'autre.

J'aimerais de tous les doublons d'un meme n°véhicule passent en vert si tous les états sont à 0.

J'ai pour l'instant commencé cela mais je n'arrive pas à aborder le problème pour balayer ma plage...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sub Affichage()
Dim i As Integer
Dim DerLigne As Integer
 
DerLigne = Cells(Columns(rColLoc).Cells.Count, rColLoc).End(xlUp).Row
For i = rCelDeb To DerLigne
 
    If Cells(i + 1, rColLoc) And Cells(i, rColTotMT) = "0" Then
    Range(Cells(i, rColInter), Cells(i, rColLibellé)).Interior.ColorIndex = 43
 
    ElseIf Cells(i, rColLoc) = 'Comment pouvoir balayer les lignes suivantes qui comportent des doublons ?
End Sub
Comment pourrais-je m'y prendre ?

D'avance, merci beaucoup !