EXCEL - jetez un oeil à ma belle macro

Bonjour,


pourriez vous jeter un oeil à ma macro?

Sub Macro4()
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Sheets("requet_temp").Activate
Cells(i, 1).Select
Set check_data = Sheets("excel").Columns(3).Find(What:=Cells(i, 1), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, MatchCase:=False)
If Not check_data Is Nothing Then
Cells(i, 1).Interior.Color = vbRed
Else
End If
Next i
End Sub

le but est de rechercher dans une liste de références produits (feuille "excel" colonne 3) les références apparaissant dans la liste de références produits (colonne 5, feuille "requet_temp")

L'idéal serait de colorier en rouge les cellules dans "excel" colonne 3 qui on été trouvées dans la liste de "requet_temp" colonne 5

Merci si vous pouvez m'aider, je débute en macro.

Ophélie