Problème de localisation de fichier

Bonsoir tout le monde,

Heureuse encore une fois d'utilisé votre site ça fait énormément plaisir, bref mon cas aujourd'hui c'est la localisation du mon fichier, alors lorsque je change mon fichier dans un autre ordinateur ou un autre emplacement je dois chaque fois changer le parcours de cette partie de mon code :

Sub CopyDefect()

Dim ws As Worksheet
Set ws = Sheet1

On Error Resume Next
 'sum defect
With ws
   Range("DataDefectDouble").Copy
   Range("AT9").PasteSpecial
   Range("dataNOKPART").Copy
   Range("AU9").PasteSpecial
'préciser endroit du fichier
    Range("AW9").Select
    Selection.Consolidate Sources:= _
        "'C:\Users\Houyam\Desktop\Defect_Scrap\[Defect_Scrap.v2.xlsm]Data'!DoubleDefect" _
        , Function:=xlSum, TopRow:=False, LeftColumn:=True, CreateLinks:=False

   End With
On Error GoTo 0
End Sub

Est ce que y a une possibilité de l'adapté dans des divers endroit?