Sub CopyRang()
RangCopy$ = "A1:Z500" '<<< A VOIR
SvgActiveSheet$ = ActiveSheet.Name 'save le nom de la feuille active
Application.Calculation = xlCalculationManual 'plus rapide
Application.DisplayAlerts = False ' évite demande d'excel d'écraser les données !?
Application.ScreenUpdating = False 'suspend l'affiche
Worksheets("CSV1 confirmation mission").Select 'select feuil.destin
ActiveSheet.Cells.Clear 'nettoye
Worksheets("feuilletampon").Range(RangCopy$).Copy 'copy du range source
Range("A1").Select 'voir position de la cellule haut.gauche de destination
ActiveSheet.Paste 'recopie puis choix suivants:
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'Selection.PasteSpecial Paste:=xlPasteValidation, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False: Range("A1").Select
Application.Calculation = xlCalculationAutomatic
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Sheets(SvgActiveSheet$).Select 'retour feuil.active de départ
End Sub