Problème de Boucle

Bonjour,

Ca fait une heure que je cherche à trouver la boucle pour :

        .Cells(5, 3).Value = Sheets("HEBDO").Cells(6, 3).Value
        .Cells(5, 5).Value = Sheets("HEBDO").Cells(6, 4).Value
        .Cells(5, 7).Value = Sheets("HEBDO").Cells(6, 5).Value
        .Cells(5, 9).Value = Sheets("HEBDO").Cells(6, 6).Value
        .Cells(5, 11).Value = Sheets("HEBDO").Cells(6, 7).Value
        .Cells(5, 13).Value = Sheets("HEBDO").Cells(6, 8).Value
        .Cells(5, 15).Value = Sheets("HEBDO").Cells(6, 9).Value

J'ai essayé le :

For i = 3 to 15 step 2
For k = 3 to 9
.Cells(5, i).Value = Sheets("HEBDO").Cells(6, k).Value
Next k
Next i

Mais évidemment je ne suis pas très doué...

Merci d'avance pour l'aide apportée !

Hello,

Pas loin

k = 3
For i = 3 to 15 step 2
.Cells(5, i).Value = Sheets("HEBDO").Cells(6, k).Value
k = k+1
Next i

Bonjour merci beaucoup.

Très logique pourtant