Copier coller sur VBA

voila un code VBA qui fais ce que tu demandes, pour l'utiliser appuyes sur ALT+F11 et créer un nouveau module. Copie ceci dans ce module en initialisant les valeurs comme tu le souhaites

sub copier()

dim j as integer
dim fin as integer
dim ColonneSource as integer
dim ColonneDest as integer
dim maFeuilleSource as String
dim maFeuilleDest as String

'La il faut initialiser ces valeurs
j=1
fin = 10000 'Valeur a laquelle on doit s'arreter de copier/coller
ColonneSource = 1 'Je considere que la colonne source est la colonne A
ColonneDest = 2 'Je considere que la colonne de destinnation est la colonne B
maFeuilleSource = "Feuil1" 'je considere que ma feuille source est la feuille appelée "Feuil1"
maFeuilleDest = "Feuil2" 'je considere que ma feuille de destinationest la feuille appelée "Feuil2"

'Tu dois initialiser toutes ces valeurs avec ce qui correspond (tes colonnes utiles et tes feuilles utiles)

for i = 2 to fin step 5
sheets(maFeuille2).cells(j,ColonneDest) = sheets(maFeuille1).cells(i,colonneSource)
j=j+1 'Ici on indique que sur la feuille de destination on change de ligne tout les i+5
next i

MsgBox("Travail terminé" & " Vous trouverez vos résultats sur la Feuille " & maFeuille2 & "dans la colonne " & colonneDest)
end sub

Si tu as des questions hésite pas