Salut Florian53, Rag02700
Pas de macro dans le fichier
Désolé je me suis tromper de fichier
ça arrive
regarder cette proposition :
Private Sub CommandButton1_Click()
Dim drn1, drn2, i, j, c
drn1 = Sheets("Feuil1").Range("a" & Rows.Count).End(xlUp).Row
drn2 = Sheets("Feuil2").Range("a" & Rows.Count).End(xlUp).Row
tbl1 = Sheets("Feuil1").Range("a" & 1 & ":c" & drn1)
tbl2 = Sheets("Feuil2").Range("a" & 1 & ":c" & drn2)
For i = 1 To UBound(tbl1)
c = 0
For j = 1 To UBound(tbl2)
If tbl1(i, 1) & tbl1(i, 2) & tbl1(i, 3) _
= tbl2(j, 1) & tbl2(j, 2) & tbl2(j, 3) Then
c = c + 1
End If
Next
If c = 0 Then
rslt = rslt & "-" & tbl1(i, 1) & " " & tbl1(i, 2) & " " & tbl1(i, 3)
Sheets("Feuil1").Range("a" & i & ":c" & i).Interior.ColorIndex = 4
End If
Next
MsgBox "ces divisions sont absents sur la Feuil2" & rslt
End Sub
Edit = Sheets("Feuil1").Range("a" & i & ":c" & i).Interior.ColorIndex = 4