Sub Enregistrer()
Dim stRep As String
Sheets('devis').Copy
stRep = ThisWorkbook.Path
For Each s In ActiveSheet.Shapes
If s.Type = msoFormControl Then
s.Delete
End If
Next
ActiveWorkbook.SaveAs stRep & Replace(Range('G4'), ' ', '-') & Format(Now, '-ddmmyy')
ActiveWorkbook.Close savechanges:=False