Re:couleur de valeur dans module

ma valeur n'est toujours pas en rouge dans mon tableau, malgré l'aide de romain, je demande votre aide suite a une erreur 91 sur la ligne :
If Not c Is Nothing And c.Font.ColorIndex = 3 Then de la macro suivante
merci
philippe




Sub report()
For n = 2 To Sheets("Feuil1").Range("C65536").End(xlUp).Row
Set c = Sheets("DAF DKS1160M (CMT) 3000H").Columns("C").Find(Sheets("Feuil1").Range(" C" & n), LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing And c.Font.ColorIndex = 3 Then
Sheets("DAF DKS1160M (CMT) 3000H").Cells(c.Row, c.Column + 10) = Sheets("Feuil1").Range("C" & n).Offset(0, 6)
End If
Next n
End Sub