Importer des fichiers dans 2 onglets différents

Bonjour,

Je dispose d'un fichier Excel composé de 3 onglets.

Un onglet Accueil, un onglet 1 et un onglet 2

Je souhaite mettre un bouton sur l'onglet Accueil, qui me permette d'importer un fichier dans l'onglet 1 et un autre fichier dans l'onglet 2.

J'ai le code suivant :

Sub Test1()
    Dim Fichier As String, Chemin As String
    Dim i As Long

    'Répertoire contenant les fichiers
    'Chemin = "H:\REPERTOIRE"
    Chemin = Worksheets("Chemin").Range("B4")
    Fichier = Dir(Chemin & "\*.*")

    'Boucle sur les fichiers
    Do While Fichier <> ""

        i = Range("A65536").End(xlUp).Row + 1
        ImportText1 Chemin & "\" & Fichier, Cells(i, 1)

        Fichier = Dir
    Loop
End Sub

Sub ImportText1(NomFichier As Variant, Cible As Range)
    Dim QT As QueryTable

    Set QT = ActiveSheet.QueryTables.Add(Connection:="TEXT;" & _
        NomFichier, Destination:=Cible)

    With QT
        'Définit les séparateur de colonnes dans le fichier txt
        .TextFileOtherDelimiter = ";"
        .TextFileSemicolonDelimiter = True
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .Refresh
    End With
End Sub

Ce code fonctionne si mon bouton est directement sur mon onglet.

Comment modifier ce code pour pouvoir importer 2 fichiers de 2 repertoire différents dans 2 onglets différentes à partir de l'onglet Accueil ?

J'espere avoir été suffisamment clair.

Merci d'avance

Excel 2003

Bonsoir,

ImportText1 étant une fonction, tu peux l'appeler avec un bon paramètre qui donne le chemin de la feuille où il faut importer. Un conseil sans support (le fichier qui va avec) une macro ne sert pas vraiment.