Sub Renomme()
fichier_renom = ThisWorkbook.Path & "\" & Range("A1") & ".xlsm"
Fichier_actu = ActiveWorkbook.FullName
If Fichier_actu <> fichier_renom Then
ActiveWorkbook.SaveAs Filename:=fichier_renom
Kill Fichier_actu
End If
End Sub