Merci Nad-Dan, toujours aussi efficace!
Comment l'intégrer à cette macro pour supprimer les liens éventuels de mon archive :
Sub Archiver()
Dim nomfichier
Dim num As Integer
Dim no_client As String
ThisWorkbook.ActiveSheet.Copy
chemin = "C:\$Echange\"
nomfichier = Format(Now(), "dd mm yy à hh mm ss")
MsgBox "Sauvegarde de la feuille en cours le : " & nomfichier
With ActiveWorkbook
.SaveAs Filename:=chemin & nomfichier
.Close
End With
End Sub