Macro recopie

Bonjour,

Pourriez-vous m'aider à la réalisation d'une macro qui me permettrait de recopier une ligne sur dix

et ce, dans un tableau de plus de 2000 lignes

Ci-joints le fichier du classeur (2 pages)

Merci par avance de votre aide

Bonjour,

A tester

Bonjour,

comme ceci, ça devrait aller :

Sub copie()
Set ws1 = Sheets("Feuil1"): Set ws2 = Sheets("feuil2")
For n = 9 To ws1.Range("A65536").End(xlUp).Row Step 10
  Set desti = ws2.[A65000].End(xlUp)
  ws1.Range("A" & n + 1).Copy Destination:=desti(2)
  ws1.Range("B" & n + 1).Copy Destination:=desti.Offset(1, 1)
Next
End Sub

P.

Un grand merci Patrick !!

Comment ne pas recopier le format des cellules mais simplement le contenu ?

Cordialement