bonjour je suis nouveau sur le forum et débutant dans l’apprentissage du VBA, je sollicite vos lumières afin d'importer des données d'un fichier fermé dans un autre.
j'ai essayé d'écrire le VBA ci-dessous mais à la ligne N° 3 j'ai le message d'erreur
erreur d'exécution 9 : l'indice n'appartient pas à la sélection
alors que le nom est correct. Pouvez-vous svp m'aider. merci d'avance.

fichier source = classeur suivi dossiers 16-02.xlsm
feuil source = DOS CLOTURÉS
fichier cible = classeur suivi dossiers.xlsm
feuil cible= BASE

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub import()
 
    'Bloque l'affichage
    Application.ScreenUpdating = False
 
    'Ouvre le fichier
    Workbooks.Open Filename:="E:\analyse\classeur suivi dossiers 16-02.xlsm"
    Windows("classeur suivi dossiers 16-02.xlsm").Visible = False
 
    Worksheets("DOS CLOTURÉS").Select
    ActiveSheet.Range(Range("A2"), Range("A2").End(xlDown)).AutoFilter Field:=1, Criteria1:="CLOTURÉ"
    Range(Range("A2").Offset(1, 0), Range("AA2").End(xlDown)).Copy
 
    Windows("classeur suivi dossiers.xlsm").Activate
    Sheets("BASE").Select
    'Si la cellue A2 est vide
    If Range("A2") = "" Then
    'Sélectionne A2
    Range("A2").Select
    Else
    'Sinon la première ligne vide
    Range("A1").End(xlDown).Offset(1, 0).Select
    End If
 
    'Colle les valeurs
    Selection.PasteSpecial Paste:=xlPasteValues
 
    Workbooks("classeur suivi dossiers 16-02.xlsm").Save
    Workbooks("classeur suivi dossiers 16-02.xlsm").Close
 
    'Réactive l'affichage
    Application.ScreenUpdating = True
 
End Sub