Salut Laurent
Vite fait en passant:
Pour le nom mis en cellule "A1"
ActiveWorkbook.SaveAs Sheets("NomDeTaFeuille").Range("A1").Value
Et si tu ne veux pas de message de confirmation d'enregistrement :
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Sheets("NomDeTaFeuille").Range("A1").Value
Application.DisplayAlerts = True
Si, quand tu sauvegardes ton classeur, tu es dans la feuille qui contient la cellule de référence, tu peux simplifier, en enlevant Sheets("NomDeTaFeuille"), tel que :
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Range("A1").Value
Application.DisplayAlerts = True
@ +
Moa