bonjour voila j'aimerais comparez des données entre 2 feuilles ,si deux cellule sont identiques je dois mettre la ligne en couleur.

voici mon code.....
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sheets("mag").Select
    Cells.Select
    Selection.Interior.ColorIndex = xlNone
    Sheets("bdt").Select
    Cells.Select
    Selection.Interior.ColorIndex = xlNone
Dim derlign As Long
Sheets("données").Select
derlign = [A65000].End(xlUp).Row
 
Sheets("mag").Select
Dim i As Integer
Dim d As Integer
Dim derlig As Long
d = 1
derlig = [A65000].End(xlUp).Row
For i = 1 To derlig
 For d = 1 To derlign
    If Sheets("données").Range("C" & d) = Sheets("Mag").Range("c" & i) Then
        If Sheets("données").Range("E" & d) = Sheets("Mag").Range("I" & i) Then
            Rows(i).Select
            Selection.Interior.ColorIndex = 3
        End If
    End If
 Next d
Next i