Supprimer choix du repertoire

bonjour a tous

le code ci-dessous me permet d'ouvrir une boite de dialogue afin de sélectionner un dossier.

je souhaite supprimer cette boite de dialogue et inscrire en dur dans le code le chemin du dossier. ( car ce sera toujours le même )

quelqu'un pourrait t il m'aider, svp ?

Option Explicit

Dim i As Long
Dim tblin(), tblout() ' termes in et termes out de la selection

Sub importer()

    Dim chemin$, Rep As FileDialog

    ' importation des parametres
    With Sheets("PARAMETRES")
        tblin = .Range("A2:A" & .Range("A" & Rows.Count).End(xlUp).Row).Value
        tblout = .Range("B2:B" & .Range("B" & Rows.Count).End(xlUp).Row).Value
    End With

    ' choix du répertoire
    Set Rep = Application.FileDialog(msoFileDialogFolderPicker)
    Application.FileDialog(msoFileDialogFolderPicker).Title = "Choix du répertoire des fichiers ..."
    Rep.Show
    If Rep.SelectedItems.Count = 0 Then Exit Sub
    chemin = Rep.SelectedItems(1) & "\"

    ' effacement données
    If Not Sheets("DATA").ListObjects(1).DataBodyRange Is Nothing Then Sheets("DATA").ListObjects(1).DataBodyRange.Delete

    Dim start As Single
    start = Time

    ' lecture
    i = 2

    lire chemin

 ActiveSheet.ListObjects("Tableau1").DataBodyRange.RemoveDuplicates Columns:=Array(1, 9), _
        Header:=xlYes 'pour supprimer les doublons ref de prog et num outil'

    ActiveWorkbook.RefreshAll 'permet actualisation du TCD'

    MsgBox ("durée du traitement: " & Format((Time - start), "hh:mm:ss"))

End Sub

merci d'avance.

premièrement, c'est pour choisir un fichier ou un dossier? si c'est un fichier alors quel est son extension?
ou alors c'est pour choisir un fichier dans un dossier spécifique?

choisir un dossier dans mon répertoire