Comparaison de nom de fichier

ChDir chemin
Fichier = Application.GetOpenFilename("Tous les fichiers, *")
If Fichier Like chemin & "\PS??????.C??" Then
NomFich = Dir(Fichier) 'nom sans chemin d'accès
'-----------
Else
'-----------
End If

Sub import()
Start:
filetoopen = Application _
    .GetOpenFilename("PS DATA (*.C*), *.C*")

Dim nom As String
nom = Mid(filetoopen, InStrRev(filetoopen, "\") + 1)

If nom Like "\PS??????.C??" Then
GoTo suite
Else
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
    Msg = "vous n'importez pas le bon type de fichier"
    Style = vbRetryCancel + vbCritical + vbDefaultButton1
    Title = "Incorrect file "
    Response = MsgBox(Msg, Style, Title, Help, Ctxt)
    If Response = vbRetry Then
    MyString = "retry"
    GoTo Start
    Else
    MyString = "cancel"
    GoTo exitdoor
    End If
End If
suite:
'____________
exitdoor:
'____________

End Sub

If nom Like "PS??????.C??" Then