Bonjour à tous et toutes

Alors là, je ne comprends pas

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
Private Sub Commande129_Click()
 
    Dim xlApp As Object
    Dim Rep As String
    Rep = ""
    Rep = Forms("FAffaire").Controls("Repertoire").Value
    Dim Chemin As String
    'Chemin = "e:/1-aff/aaa/" & Rep & "/liste.xlsx"
    'MsgBox Chemin
    '> Ouvre le fichier excel materiels de l'affaire
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True
    xlApp.Workbooks.Open ("e:/8 - AFF/" & Rep & "/9-BASES/Liste Materiels.xls")
 
    Sheets("Feuil2").Range("b1;b10").Value = Sheets("Feuil2").Range("A1;a10").Value
 
 
End Sub
J'ai l'erreur suivante sur le 2e "sheets" de la ligne 15
Erreur de compilation
Sub ou fonction non définie
Merci d'avance pour votre aide

Daniel