[VBA]Macro Recopie En Excel

salut Jika

Si la feuille sur laquelle tu travailles est "Feuil1" :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub recopierLignes()
 
Dim i As Integer
Dim wbMonClasseur As Workbook
 
Set wbMonClasseur = ThisWorkbook
k = 7 'le numero de ta ligne a répéter
nbLignes = 5    'le nb de répétitions souhaité de ta ligne
 
With wbMonClasseur.Sheets("Feuil1")
    .Rows(k).Copy
    For i = 1 To nbLignes
        .Paste Destination:=.Cells(i + k, 1)
    Next i
End With
 
End Sub

Il existe aussi une fonction pour vider le contenu du presse-papiers mais je l'ai pas en tête la.