Espacer chaque donnée récupérer

Bonjour

J'utilise actuellement la macro suivant pour récupérer des données de plusieurs feuilles :

"Dim nbVal As Long

Dim H As Long

Sheets("planning general").Range("A200").ClearContents

nbVal = Sheets.Count

For H = 3 To nbVal

Sheets("planning general").Range("A199").cells(H, 1).Value = Sheets(H).Range("A1").Value

Next H"

Je souhaiterai espacer de 18 cellules de chaque données récupérées

Pouvez vous m'aider?

Merci!

bonjour

essaie ceci

Dim nbVal As Long
    Dim H As Long
    Sheets("planning general").Range("A200").ClearContents
    nbVal = Sheets.Count
    k = 3
    For H = 3 To nbVal
        Sheets("planning general").Range("A199").Cells(k, 1).Value = Sheets(H).Range("A1").Value
        k = k + 19
    Next H

Au Top! ça fonctionne !

Merci beaucoup!!!!!!!