Reference cellule autre feuille macro

Bonjour j'ai ma macro qui me permet d'archiver sous un chemin bien précis. Je souhaiterai rendre ce chemin modifiable, plus facilement, en le mettant dans la cellule H1 de la feuille "QSIC"

Sub Archiver()

'Permet d'enregistrer le fichier généré

Dim extension As String
Dim chemin As String, nomfichier As String
Dim style As Integer
Application.ScreenUpdating = False
ThisWorkbook.ActiveSheet.Copy
extension = ".xlsx"
chemin = "Bibliothèques\Documents\"
nomfichier = ActiveSheet.Range("B2") & extension
With ActiveWorkbook
   .ActiveSheet.DrawingObjects(1).Delete
    .SaveAs Filename:=chemin & nomfichier
    .Close
    End With

End Sub

Bonjour,

Une proposition ...

Sub Archiver()

'Permet d'enregistrer le fichier généré

   Dim extension As String
   Dim chemin As String, nomfichier As String
   Dim style As Integer

   Application.ScreenUpdating = False
   ThisWorkbook.ActiveSheet.Copy

   extension = ".xlsx"

   Application.DisplayAlerts = False  ' S'il existe, le fichier sera écrasé sans avertissement

   chemin = Worksheets("QSIC").Range("H1") & "\"    '''''"Bibliothèques\Documents\"
   nomfichier = ActiveSheet.Range("B2") & extension
   With ActiveWorkbook
      .ActiveSheet.DrawingObjects(1).Delete
      .SaveAs Filename:=chemin & nomfichier  '', FileFormat:=xlOpenXMLWorkbook ', CreateBackup:=True
      .Close
   End With

   Application.DisplayAlerts = True  ' Réactiver les avertissements

End Sub

ric