Masquer des feuilles

Bonjour à tous,

j'ai un code qui me permet de masquer dans mon classeur toutes les feuille qui sont dofférentes de mot "A5" voir ci-dessous

Sub Masquer()
Dim oSh As Object
For Each oSh In ThisWorkbook.Sheets
If oSh.Name <> "A5" hen oSh.Visible = False
Next oSh
End Sub
mais le mot "A5" peut faire partie d'un mot d'une feuille que je ne veut pas masquer. pour cela j'ai modifier le code mais il ne fonctionne pas.

Sub Masquer()
Dim oSh As Object
For Each oSh In ThisWorkbook.Sheets
If oSh.Name <> "*" & "A5" & "*" Then oSh.Visible = False
Next oSh
End Sub

Pour résumer je veux masquer toutes les feuille qui ne contiennent pas le mot "A5"

Quelqu'un aurait-il un réponse à mon problème.

D'avance je vous remercie