Bouton pour copier un tableau

Bonjour,

J'aimerais que mon bouton recopie tout le tableau encadré de sorte à avoir ce tableau toutes les 3 lignes quand on appuie sur le boutn copier,

Résultat voulu en feuille 2

Merci

Bonjour cyr.ill0,

Essaie avec cette macro :

Sub Copie()
Dim i As Long, n As Long
n = Application.InputBox("Nombre de tableaux ?", Type:=1)
Application.ScreenUpdating = False
For i = 1 To n
    [A3:C10].Copy Destination:=Range("A" & Rows.Count).End(xlUp).Offset(4)
Next i
End Sub

Bonjour

Bonjour vba-new

Ce que j'ai compris

Sub Copie()
  With Sheets("Feuil2")
    If .Range("A1") <> "" Then
      Range("A3:C10").Copy Destination:=.Range("A" & Rows.Count).End(xlUp).Offset(4, 0)
    Else
      Range("A3:C10").Copy Destination:=.Range("A1")    ' La 1ère copie
    End If
  End With
End Sub

Bonjour à vous .

J'ai inséré ton code vba new mais cela ne marche pas , je ne vois ps pourquoi ?

J'ai modifier la plage à recopier car je veux de A1 à C7

C'est tout bon, j'ai retrouvé mon erreur

Merci à vous deux

cool

Re,

Pour répondre à ton MP Banzai (je n'ai pas pu te répondre par MP car tu l'as désactivé) :

Je n'ai pas oublié de mettre la feuille de destination car je pensais que notre ami Cyril voulait copier ses tableaux sur la même feuille.