Bonjour à tous et à toutes,

Je commence à coder dans vba depuis quelques semaines donc je bloque de temps en temps.
Je rencontre un problème dans une macro que je suis en train de faire.
Je souhaite ouvrir un fichier (FichierSource) et coller les données dans un autre fichier de destination (identifié comme FichierRef dans le code).

J'obtiens l'erreur suivante lorsque j'essaie de lancer la macro : "référence incorrecte ou non qualifiée".

Voici le code :
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
35
36
37
38
39
40
41
42
43
Option Explicit
 
Sub Copier_données()
'
' Copier_coactivite Macro
'
Dim DerniereLigneSource As Long
Dim DerniereLigneRef As Long
Dim FichierSource As Workbook
Dim FichierRef As Workbook
'
'
    'Définit le ou les fichiers à ouvrir
    FichierSource = Application.GetOpenFilename
    If VarType(FichierSource) = vbBoolean Then MsgBox "Action annulée" _
    'Else MsgBox "Fichier sélectionné : " & NomFichier
    Workbooks.Open (FichierSource)
 
    '
    'Sélection des données à copier
    DerniereLigneSource = FichierSource.Range("A" & .Row.Count).End(xlUp).Row
    Range(Range("A4"), DerniereLigneSource).Select
    Selection.Copy
    End With
 
    'Passage sur le fichier sur lequel on veut coller les données
    Set FichierRef = ActiveWorkbook
    DerniereLigneRef = FichierRef.Range("A" & .Rows.Count).End(xlUp).Row
    FichierRef.Activate
    Next
 
    FichierRef.Activate
    Worksheets("Données importées").Select
    Range("G20").Select
 
    MsgBox "Veuillez coller les informations du fichier Source", vbOKOnly + vbInformation, "Copie des données source"
    'Copie de la zone utilisée
 
    'On colle des informations copiées
    Selection.Paste
    FichierSource.Close False
    Application.ScreenUpdating = True
End Sub
Je pense qu'il manque une instruction, il manquerait un with quelque part mais je ne sais pas comment corriger vraiment ce problème.
Merci pour vos commentaires ou conseils.

A bientôt