enregistrer dans un autre classeur

Sub Bouton22_QuandClic()
Dim L As Integer
Dim WbkBase As Workbook ' le fichier base client
Dim Wks As Worksheet 'la feuille base client

    ' si le fichier base n'est pas ouvert ça génère une erreur
    ' j'utilise cette erreur pour vérifier que le fichier est ouvert
    On Error GoTo gesterr
    Set WbkBase = Workbooks("Base client.xls")
    Set Wks = WbkBase.Worksheets("clients")
    
' pas besoin de sélections ou d'activation de feuilles

' utilisation du bloc with : les instructions qui commencent par un point font référence à wks (la feuille client)
With Wks
    L = .Range("B65536").End(xlUp).Row + 1
    .Range("A" & L) = Sheets("Fiches1").Range("D35")
    .Range("B" & L) = Sheets("Fiches1").Range("C7")
    .Range("C" & L) = Sheets("Fiches1").Range("C8")
    .Range("D" & L) = Sheets("Fiches1").Range("C9")
    .Range("E" & L) = Sheets("Fiches1").Range("F9")
    .Range("F" & L) = Sheets("Fiches1").Range("C10")
    .Range("G" & L) = Sheets("Fiches1").Range("H2")
    .Range("H" & L) = Sheets("Fiches1").Range("H4")
    .Range("I" & L) = Sheets("Fiches1").Range("H35")
    .Range("J" & L) = Sheets("Fiches1").Range("H3")
    .Range("P" & L) = Sheets("Fiches1").Range("H5")
End With

'gestion de l'erreur
Exit Sub
gesterr:
MsgBox "le fichier base doit être ouvert pour pouvoir enregistrer les fiches !"

End Sub