Sub Couleur()
Dim Cel As Range, dFruit As Integer, Fruit As Range
For Each Fruit In Feuil1.Rows(1).SpecialCells(xlCellTypeConstants)
For Each Cel In Feuil2.Rows(1).SpecialCells(xlCellTypeConstants)
If Cel = Fruit Then
dFruit = Cel.Column
Exit For
End If
Next
For Each Cel In Feuil1.Columns(Fruit.Column).SpecialCells(xlCellTypeConstants)
If Cel.Row > 1 And Cel > Feuil2.Cells(2, dFruit) And Not Cel = "NR" Then
Cel.Interior.ThemeColor = xlThemeColorAccent6
End If
Next
Next
End Sub