Bonsoir Hervé et g.david!
J'ai donc essayé de cette manière :
ActiveWorkbook.SaveAs filename:= _
Workbook('gestion des etiquettes.xls').Sheets('Lien').Range('B35') & ActiveSheet.Name & '.xls'
Mais la synthaxe est pas bonne, le message d'erreur étant 'SUB ou Fonction non definie'
G.david, peut tu préciser ta méthode !!