Comment avec GetOpenFilename ne faire apparaître que les fichiers avec"Imputations"

Sub OuvreFichiers()
Dim chemin$, nomfich$
Application.ScreenUpdating = False
On Error Resume Next
chemin = "C:\documents and Settings\bureau\Imputations\"
nomfich = Dir(chemin & "Imputation*.xls") '1er fichier trouvé
While nomfich <> ""
  If IsError(Workbooks(nomfich).Name) Then _
    Workbooks.Open chemin & nomfich 'ouverture si le fichier n'est pas déjà ouvert
  Windows(nomfich).Visible = True 'au cas où la fenêtre serait masquée
  nomfich = Dir 'fichier suivant
Wend
ThisWorkbook.Activate
End Sub

Dim FD As FileDialog
    Set FD = Application.FileDialog(msoFileDialogOpen)
    With FD
        .InitialFileName = "C:\documents and Settings\bureau\Imputations\Imputations*"
        .Filters.Clear
        .Filters.Add "Fichier Excel", "*.xls"
        .AllowMultiSelect = False
        If .Show <> 0 Then
            Workbooks.Open .SelectedItems(1)
        End If
    End With
    ThisWorkbook.Activate

Sub OuvreFichier()
Dim chemin$, nomfich
chemin = "C:\documents and Settings\bureau\Imputations"
ChDir chemin
1 nomfich = Application.GetOpenFilename("Fichiers Excel(*.xls),*.xls")
If nomfich = False Then Exit Sub
If Not nomfich Like chemin & "\" & "Imputation*.xls" Then GoTo 1
Workbooks.Open nomfich
End Sub