Sub CheckTxtColor()
Dim DerL As Long, Rg As Range, R, L As Long
With Feuil1
DerL = .Cells(.Rows.Count, 7).End(xlUp).Row
Set Rg = .Range("G1:G" & DerL)
For Each R In Rg
L = R.Row
If R.Font.ColorIndex <> 1 Then
.Range("V" & L).Value = "Prod"
Else
.Range("V" & L).Value = ""
End If
Next
End With
Set Rg = Nothing
End Sub