Condition en fonction des 4 dernières lettres d'une variable

Dim a As String
Dim ws As Worksheet

For Each ws In Worksheets
a = ws.Name
If a = "*PAX" Or "*CREW" Then  '<Erreur incompatibilité de type
compteur = compteur + 1
End If

Bonjour tout le monde,

Je cherche à compter le nombre d'onglet qui finissent par PAX ou CREW.

Exemple de nom : C34 PAX, L34 CREW etc

Est ce que l'erreur provient de l'Astérix * ?

Merci pour votre aide !

Bonjour, utilise plutôt like

Sub Macro1()

Dim a As String
Dim ws As Worksheet

For Each ws In Worksheets
a = ws.Name
toto = a Like "*PAX" Or a Like "*crew"
If toto Then
compteur = compteur + 1
End If
Next
MsgBox compteur

End Sub

@plus

Bonjour fg2b,

Ca marche très bien.

Je te remercie !