Merci à vous les réponses données par Didier fonctionne très bien. Merci beaucoup Didier et à tous le forum.

J'aimerai quand même aller plus loin dans le code :

Code Origine
 
Sub Traitement2()
Recopie des lignes 1 à 5 en lignes 6 à 10
    With Sheets("Feuil1")
        .Rows("1:5").Copy Destination:=.Rows("6:10")
    End With
End Sub

Code à Améliorer

Sub Traitement2()

       Dim Ligne As Long
        Dim LigneMax As Long                  
       i = 1

      With Sheets("Feuil1")

      Recopie = Application.InputBox("Saisir le nombre de fois à       recopier", Type:=1)
         If Recopie = False Or Recopie < 0 Then Exit Sub

        LigneMax = .Cells(.Rows.Count, .Rows.Count).End(xlUp).Row
        .Rows("Ligne : LigneMax").Copy Destination:=.Rows("LigneMax+i:.Rows.Count+1 ")
      End With
End Sub

Ma nouvelle question étant, je souhaiterai améliorer le code sans mettre les numéro de ligne en dur.
 
En fait, j'ai défini deux variables. la variable Ligne correspond à la deuxieme ligne de la feuille excel et LigneMax correspond à la dernière ligne de la feuille excel contenant les données.

Et je veux que le recopie commence à partir de ligneMax +1 et ainsi de suite.
La première ligne du tableau n'est pas à recopier car c'est la ligne d'entête.

Dans l'attente d'une solution merci d'avance à vous tous!