Nom de la feuille ajoutée

Bonjour.

J'ai une macro pour importer une nouvelle feuille à partir d'un classeur fermé.

J'ai besoin de votre aide pour que :

1. une nouvelle feuille soit créer dans le classeur ouvert et non ou le boutton se trouve
2. Cette feuille se somme "AJOUT" dans le classeur ouvert.

3. Sub import_donnee()
       Dim a As Variant, Nom As String
   
       Nom = ActiveWorkbook.Name
       ChDrive "C:"    ' Choix du lecteur
       ChDir "C:\"    'Choix du répertoire
       a = Application.GetOpenFilename("fichier excel (*.xlsx), *.xls", _
                                       , "Sélection de vos fichiers excel", , True)
   
       Select Case TypeName(a)
       Case Is = "Boolean"
           Exit Sub
       Case Else
           For b = LBound(a) To UBound(a)
               Workbooks.Open a(b)
           Next
       End Select
   
       Nom2 = ActiveWorkbook.Name
       Cells.Select
       Selection.Copy
       Windows(Nom).Activate
       Range("A1").Select
       Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks _
                                                                       :=False, Transpose:=False
       Application.DisplayAlerts = False
       Windows(Nom2).Close
       Application.DisplayAlerts = True
   
   End Sub

Merci de votre incroyable support

Je n'ai pas compris grand chose à ce que vous voulez faire et votre code ne nous aide pas. Au contraire, parce qu'il ne correspond pas à votre demande.
J'ai cru comprendre que vous vouliez ouvrir un classeur dans laquelle il y avait une feuille nommée "AJOUT" et que vous vouliez la copier dans la classeur appelant
Si c'est le cas, essayez ceci :

Sub import_donnee()
    Dim wB1 As Workbook, wB2 As Workbook
    Dim fichier As String

    Application.ScreenUpdating = False
    Set wB1 = ThisWorkbook

    ' Ouvrir l'explorateur de fichiers pour sélectionner le fichier Excel source
    fichier = Application.GetOpenFilename("Fichiers Excel (*.xls*), *.xls*")
    If fichier = "Faux" Then Exit Sub ' L'utilisateur a annulé

    Set wB2 = Workbooks.Open(fichier)
    wB2.Sheets("AJOUT").Copy After:=wB1.Sheets(wB1.Sheets.Count)
    wB2.Close SaveChanges:=False

    Application.ScreenUpdating = True
End Sub

Bonjour Optimix.

Merci de ta réponse et désolé si ce n'était pas clair.

Ca fonctionne super bien !

Je voue un culte sans fin à ce forum !

Alors c'est mon jour de chance, je vais aller faire un loto de ce pas.