Afficher un message avec condition

Bonjour,

J'aimerai que mon programme prenne en compte la condition SI pour une cellules avec plusieurs des noms différentes dans une autre cellule et pour ce la j'ai fait le prog suivant:

If Range("D7") = "Filtre 1" And Range("D30").Value < 20 Then

Range("D32") = "Respecté"

Else: Range("D32") = "Non Respecté"

End If

If Range("D7") = "Filtre 2" And Range("D30").Value < 30 Then

Range("D32") = "Respecté"

Else: Range("D32") = "Non Respecté"

End If

If Range("D7") = "Filtre 3" And Range("D30").Value < 40 Then

Range("D32") = "Respecté"

Else: Range("D32") = "Non Respecté"

End If

Mais il y a un bug quand la valeur autre choses quand la cellule D30 n'affiche pas un nombre.

Pourriez vous m'aider ?

Merci d'avance

Sub Respect()

If IsNumeric(Range("D30").Value) Then

Range("D32") = "Non Respecté"

If Range("D7") = "Filtre 1" And Range("D30").Value < 20 Then Range("D32") = "Respecté"

If Range("D7") = "Filtre 2" And Range("D30").Value < 30 Then Range("D32") = "Respecté"

If Range("D7") = "Filtre 3" And Range("D30").Value < 40 Then Range("D32") = "Respecté"

End If

End Sub