Sub copiecolle()
Dim NomFichier As String
Dim ChemFichier As String
Sheets("Note vierge").Select
Sheets("Note vierge").Copy
Cells.Select
Range("A4").Activate
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
NomFichier = "Note de Demande d'amélioration n° " & Range("E3")
ChemFichier = Application.GetSaveAsFilename(InitialFileName:=ThisWorkbook.Path & "\" & NomFichier, Filefilter:="Fichier Excel(*.xls), *.xls")
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=NomFichier
Application.DisplayAlerts = True
MsgBox "Le fichier a été sauvegardé avec succès"
End Sub