Recopier des valeurs avec un décalage de 4 lignes

Bonjour,

Mon problème est le suivant: après un extract d'un outil que j'utilise à mon bureau les données qui m'intéresse sont espacées de 4 lignes. Je veux donc recopier dans la colonne H2 la cellule B6, puis dans H3 la cellule B10, et ainsi de suite...

J'ai commencé un code (en PJ) mais je n'y arrive pas pour le moment.. Je pense que ce soit hyper compliqué pour quelqu'un qui à l'habitude du VBA

Merci de votre aide, ca m'évitera de me taper 700 valeurs à la main

Bonjour Patoulatchi76,

Je te propose ce code VBA :

Option Explicit

Sub test()
  Application.ScreenUpdating = False
  Dim i%, j%: j = 2
  For i = 6 To 800 Step 4
    Cells(j, 8) = Cells(i, 2): j = j + 1
  Next i
End Sub

Je crois que ça devrait aller sans avoir besoin de faire une adaptation.

Merci de me dire si ça te convient.

Cordialement

Merci !

Je test ça demain matin à un bureau