1) Sub CommandBouton1()
2) Dim classeurSource As Workbook
3) Dim classeurDestination As Workbook
4) 'ouvrir le classeur source (en lecture seule)
5) Chemin = ThisWorkbook.Path
6) 'définir le classeur destination
7) Set classeurDestination = ThisWorkbook
8) Set classeurSource = Application.Workbooks.Open(Chemin & "\CHAMPION V2.xlsm")
9)'copier les données de la feuille "EN COURS, à suivre" du classeur source vers la feuille "factures 2021" du classeur destination
10) If [AG8] <> "" Then
11) classeurSource.Sheets("EN COURS, à suivre").Range("AG8").Copy classeurDestination.Sheets("factures 2021").Range("E35")
12) End If
13) 'fermer le classeur source
14) classeurSource.Close False
15) End Sub
Edit: Sur la ligne 11 je me retrouve avec une erreur comme quoi l'indice n'appartient pas à une sélection ("erreur 9")
Je pense qu'il ne trouve pas mon classeur de destination