Supprimer un message
Pinou
Tu peux vite faire une Macro
Option Explicit
Public Sub Copy()
CopySheet "Sheet1", 99
End Sub
Private Sub CopySheet(SheetName As String, NbCopy As Integer)
Dim i As Integer
For i = 1 To NbCopy
Sheets(SheetName).Copy After:=Sheets(Sheets.Count)
Next i
End Sub
Option Explicit
Public Sub Copy()
CopySheet "Sheet1", 99
End Sub
Private Sub CopySheet(SheetName As String, NbCopy As Integer)
Dim i As Integer
For i = 1 To NbCopy
Sheets(SheetName).Copy After:=Sheets(Sheets.Count)
Next i
End Sub