Merci de ta réponse.
En adaptant le code à mon fichier, il me sort certain doublons mais en oublie énormément.
Ça sollicite le processeur de mon ordinateur fortement puisque quand j’exécute la macro, l'ordi ne répond plus pendant 10 secondes environ.
Je mets le code que j'ai modifié pour essayer de voir là où j'ai pu me tromper:
02P correspond à la feuille "personnes prévues" de l'exemple et 02 NP "non prévues"
Comme je l'ai dit précédemment, j'ai plus de 3300 lignes sur "02P" et environ 300 sur "02 NP"
Sub doublon()
derligneF1 = Worksheets("02P").Cells(Rows.Count, 1).End(xlUp).Row
derligneF2 = Worksheets("02 NP").Cells(Rows.Count, 1).End(xlUp).Row
For A = 2 To derligneF1
Dim TabF1(2)
With Worksheets("02P")
Set TabF1(0) = .Cells(A, 1)
Set TabF1(1) = .Cells(A, 2)
End With
For B = 2 To derligneF2
Dim TabF2(2)
With Worksheets("02 NP")
Set TabF2(0) = .Cells(B, 1)
Set TabF2(1) = .Cells(B, 2)
End With
If TabF1(0) = TabF2(0) And TabF1(1) = TabF2(1) Then
Worksheets("02 NP").Range("A" & B, "B" & B).Interior.Color = vbRed
End If
Next B
Next A
Worksheets("02 NP").Select
End Sub