Bonsoir Thierry
Dire bonjour lorsque l'on rentre à l'improviste chez une personne évite de se faire claquer la porte au nez (Comme disait Ândré il y a peu de temps ... à peu de chose près je crois)
Bon ... pour une fois ...
Essayer
Public Sub Sauvegarde()
Dim Nom As String
Nom = Range('A1').Value
ThisWorkbook.SaveCopyAs Filename:=Nom & '.xls'
End Sub
sera peut-être l'adopter ...
@+ GD