J'essaie en vain de mettre en rouge le texte "PAS VALIDE"
Pouvez-vous m'aider ?
Ci-dessous la macro
Merci et à +
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 5 Then
If Application.WorksheetFunction. _
CountIf(Range("E:E"), Target.Value) > 1 Then
MsgBox "saisissez un autre numéro, celui-ci existe déjà"
Target.Value = "PAS VALIDE" <'En rouge
End If
End If
End Sub