Stop execution macro si condition faux

Bonjour,

Svp merci de m'aider a réaliser un petit code vba,

Je souhaite que ma macro "Exitsub" si la condition ci-après est fausse

Sub test ()

If range("A4") = "pomme" &  range("B4") = "banane" &  range("C4") = "carotte" &  range("D4") = "kiwi"

Then Msgbox "C'est Vrai"

Else 

Msgbox "C'est Faux "

End if

Exit sub

Je la préfère en boucle c'est beaucoup mieux vue que j'ai beaucoup de cellule dans la ligne N°4

Merci d'avance mes cher amis

Bonjour,

La question n'est pas très claire

Cependant :

Sub test1()
    If Range("A4") = "pomme" And Range("B4") = "banane" _
       And Range("C4") = "carotte" And Range("D4") = "kiwi" Then
        MsgBox "C'est Vrai"
    Else
        MsgBox "C'est Faux"
        Exit Sub
    End If
End Sub

ou :

Public Sub test2()
    If Range("A4") = "pomme" And Range("B4") = "banane" _
       And Range("C4") = "carotte" And Range("D4") = "kiwi" Then
        MsgBox "C'est Vrai"
    End If
End Sub

Super bien ça marche a merveille ton code merci beaucoup.