Fonction SI(OU

Bonjours

Je viens une fois de plus vous demandez votre aide pour un minuscule petit problème (Enfin il me semble).

Voila sur dans un tableau Excel basique on peu rentrer la fonction SI(OU pour mette plusieurs teste logique.

Mon problème est que je ne sais pas comment le faire en VBA.

L'exemple que j'ai besoin est le suivant (Suppression de l'onglet des feuille).

Sub Onlets_supprimer_sauf_BASE()
Dim w As Worksheet
Select Case MsgBox("Etes-vous sur de vouloir supprimer les feuilles ? ", vbYesNo + vbQuestion, "ATECC")
    Case vbYes
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each w In Worksheets
If w.Name <> "base" Then w.Delete 'je pense que c'est ici que je doit mettre la modification (Car je veux garder la feuille Base et la AS0001.
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Case vbNo
End Select
End Sub

Mon souci se résume à vouloir gardé la feuille "Base" et une autre la "AS0001"

Cordialement

Salut, il faut que tu mettes :

If feuille <> condition 1 and feuille <> condition 2 then ...

Merci Gaz0line