Chemin = ThisWorkbook.Path ' même dossier
' Chemin = "D:\keven\désuetude\bd.xls" 'a mettre
Workbooks.Open Chemin & "\fu.xls"
With ActiveWorkbook
With .Worksheets("feuil1")
Fu = .Range("A1:A" & .Range("A65536").End(xlUp).Row).Value
End With
.Close
End With
MsgBox (Fu())
LIG = ws.Range("B65536").End(xlUp).Row
LIG3 = 1
With ws2
For I = 1 To LIG
If ws.Cells(I, 1) = "OF:" Then
NoMrp = ws2.Cells(LIG3, 2).Value
Set trouve = Fu.Find(NoMrp, LookIn:=xlValues).Select
If Not trouve Is Nothing Then
ws2.Rows(LIG3).Interior.ColorIndex = 2
Else
ws2.Rows(LIG3).Interior.ColorIndex = 6
End If
Next