Macro copie/colle des cellules contigues d'un classeur dans autre classeur

Oui, dans ce cas, il faut enlever la ligne .close et rajouter cette fonction :

Function AffecterClasseur(chemin$) As Workbook
On Error Resume Next
Set AffecterClasseur = Workbooks(Split(chemin, "\")(UBound(Split(chemin, "\"))))
If Err.Number = 9 Then Set AffecterClasseur = Workbooks.Open(chemin)
End Function

Pour ensuite modifier la ligne d'affectation de wbdest (dans Archiver) ainsi :

Sub Archiver()
dim wbdest as workbook, tShSource, tShDest, tRef, t
set wbdest = AffecterClasseur("ClasseurB") 'classeur B (destination)
'if wbdest is nothing then msgbox "Fichier introuvable", 16: exit sub 'controle supp en option

'suite du code
set wbdest = nothing
end sub

Cdlt,