Sub Mcopie(fs$, source$, fd$, desti$) 'dans les () çà représente quoi?
Sheets(fs).Range(source).Copy 'et dans celle-ci?
Sheets(fd).Range(desti).PasteSpecial 12 '*
End Sub
Private Sub CommandButton1_Click()
Dim copie As Workbook, choix
'///////////CREATION DONNEES TEST//////
With Range("A3:H30")
.FormulaArray = "=COLUMN()*ROW()"
.Value = .Value
.Borders.LineStyle = xlContinuous
.Interior.ColorIndex = 6
.Font.Bold = True
End With
'/////////FIN CREATION DONNEES TEST /////
choix = InputBox("Choix?", "Test", 1)
Application.ScreenUpdating = False
Select Case choix
Case 1
Mcopie "Feuil1", "A3:H9", "Feuil2", "A35"
Case 2
Mcopie "Feuil1", "A11:H19", "Feuil2", "A35"
Case 3
Mcopie "Feuil1", "A20:H30", "Feuil2", "A35"
End Select
Set copie = Workbooks.Add(xlWBATWorksheet)
ThisWorkbook.Worksheets("Feuil2").Copy Before:=copie.Sheets(1) 'Le before ?
Application.DisplayAlerts = False
copie.Sheets(2).Delete
Application.DisplayAlerts = True 'que'est ce que ceci?
Application.ScreenUpdating = True 'que'est ce que ceci?
End Sub