Bonjour,
Tes instructions "Activate" sont inutiles ! Et tu déclares un range avant d'ouvrir le fichier, ce n'est pas le bon ordre des choses, car implicitement, ton range est affilié au classeur et à la feuille active au moment de son affectation.
'...
Dim clsr As Workbook, rng as Range, chemin As String, fichier As String
chemin = monchemin
fichier = monfichier.xlsm
Set clsr = Workbooks.Open(chemin & fichier) '<-- cette instruction active déjà ce classeur
Set rng = clsr.Sheets("5S M5").Range("DG6:GC64")
rng.Paste '<-- remarque bête : il faut avoir copié avant de coller