Sub PRICE()
Dim Derlg As Integer, i As Integer
With Sheets("feuil1")
Derlg = .Range("X" & .Rows.Count).End(xlUp).Row
For i = 80 To Derlg
If Len(.Range("W" & i).Value) > 0 Then
.Range("W" & i).Font.Color = vbRed
Else
.Range("W" & i).Value = .Range("X" & i).Value
.Range("W" & i).Font.Color = vbGreen
End If
Next i
End With
End Sub