Bonjour Merlhes
Voici une solution sous réserve :
1) de t'avoir compris !
2) que ton tableau de base soit en ("A1:T20")
3) que tu veuilles travailler dans les colonnes de "A" à "T"
Sinon faudra faire des modifications
Sub TableauDuplicate()
Dim L As Long, X As Integer, Nombre As Integer
L = Sheets("Feuil1").Range("A65536").End(xlUp).Row + 1
Nombre = InputBox("Veuillez indiquer le nombre de copies du tableau ?", "Nombre de Tableaux", 10)
If (65536 - L) < (Nombre * 5) Then Nombre = Round((65536 - L) / 5, 0)
For X = 1 To Nombre
With Sheets("Feuil1")
.Range("A1:T20").Copy _
Destination:=.Range("A" & L)
L = L + 5
End With
Next X
End Sub
BOn WEek End
@+Thierry