Problème de déplacement de l'application Excel-VBA

Bonjour,

j'ai réalisé une application avec excel-vba et j'ai trouvé un problème de déplacement de fichier, cela veut dire quand je voulais déplacer vers un ordinateur ou bien dans le réseau de la société je dois renommer le chemin du button enregistrer à chaque fois,Alors ma demande est la suivante : Est ce que vous pouvez me proposer une solution par rapport à ma demande?

Merci de m'aider s'il vous plait

Voila le code:

Private Sub cmdReg_Click()

'hold in memory and stop screen flicker
Application.ScreenUpdating = False

'error handler
On Error Resume Next

Workbooks("C:\Users\Houyam\Desktop\Defect_Scrap\Defect_Scrap.v2.xlsm").Sheets("Data").Select
Range("filtrecalcul").copy
Workbooks.Open("C:\Users\Houyam\Desktop\Defect_Scrap\Pareto_analysis_Defect.xlsx").Sheet4("Pareto").Select
Range("C15").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Range("I16").Select
ActiveSheet.Pictures.Insert("C:\Users\Houyam\Desktop\Defect_Scrap\graph.gif").Select

'error block
On Error GoTo 0

Workbooks("Pareto_analysis_Defect.xlsx").Save
Workbooks("Pareto_analysis_Defect.xlsx").Close
'error block
On Error GoTo 0
End Sub

et pour le button supprimer est le voila :

Sub deletDefect()

Workbooks.Open ("C:\Users\Houyam\Desktop\Defect_Scrap\Pareto_analysis_Defect.xlsx")
Range("C15:F39").Select
Selection.ClearContents
ActiveSheet.Shapes.Range(Array("Picture 1")).Select
Selection.delete
Workbooks("Pareto_analysis_Defect.xlsx").Save
Workbooks("Pareto_analysis_Defect.xlsx").Close

End Sub