XL 2013 Message avec condition

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [C8]) Is Nothing Then
         If [C8] = "Autre nationalité" And [D8] = "" Then [D8] = "A remplir"
         If [C8] = "Française" And [D8] <> "" Then [D8] = ""
    End If
Fin:
End Sub

Sub Worksheet_Change(ByVal Target As Range)
If LCase([D7]) = "autre nationalité" And [D8] = "" Then [D8] = "A remplir"
End Sub

If [C8] = "Française" And [D8] <> "" Then [D8] = ""