Sub EnregistrerSous()
'
'
'
Dim repertoire As String, nomFichier As String, extension As String, numero As String
ActiveSheet.Select
ActiveSheet.Copy
Range("B2:H68").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("G3").Select
repertoire = "N:\Demand Management\Réception\Anomalies\"
numero = Range("G3")
nomFichier = "Anomalie "
extension = ".xlsx"
Application.Dialogs(xlDialogSaveAs).Show repertoire & nomFichier & numero & extension
End Sub