Sub Rectangle1_Cliquer()
Dim extension As String
Dim chemin As String
Dim nomfichier As String
extension = ".xlsm"
chemin = "C:\Users\Biloute\Desktop\tarot\orval"
nomfichier = ['Feuil1'!c2].Text & extension
With ActiveWorkbook
Application.DisplayAlerts = False
.SaveAs Filename:=chemin & nomfichier, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End With
Application.DisplayAlerts = True
End Sub