Ouvrir un fichier si le nom d'utilisateur contient.

Bonjour, je m'explique
Je veux qu'a l'ouverture de mon fichier si le nom d'utilisateur contient ou ne contient pas "cha" le fichier s'ouvre ou une autre action.
J'ai essayé avec countif cela marche en formule simple c'est la création du critère qui pêche ! Le contient ["=*cha*"]

  Private Sub Workbook_Open()
Non = Environ("username")
If Application.CountIf(Nom, ["=*cha*"]) >= 1 Then
'____ 2 partie ____
Range("a14:a15").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End If
End Sub

La partie 2 c'est pour voir si ça marche
Merci de votre aide


EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici :
https://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code

Merci d'y penser dans tes prochains messages.
.