VBA problme macros :s

Bonjour je debute en vba et je bute sur une macro :s

Cela est censé copier 1 tableau verticale de la feuille 1 dans un tableau horizontale de la feuille 2
cela fonctionne au rang 1 mais je n'arrive pas a incrementer les variables :s

Au rang 1 il copie la selection D5:D12 de la feuille 2 pour la copier a B2:B9 de la feuille 1
la selection de la feuille 2 change de ligne et la selection de la feuille 1 se deplace de une colonne
J espere que c'est comprehensible :)

voila la macro concerné


Dim adrdepvert, adrarrvert As Variant
adrdepvert = 4
adrarrvert = 5
Dim finrangevert As Integer
finrangevert = 12
Dim a, b As Integer
a = 2
b = 2

For i = finrangevert To 39 Step 9
For k = adrarrvert To 32 Step 9
For j = b To 5

Sheets("Feuil2").Select
Range(Cells(adrarrvert, adrdepvert), Cells(finrangevert, adrdepvert)).Select




Selection.Copy

Sheets("Feuil1").Select


Cells(2, b).Select

ActiveSheet.Paste
Next j
Next k
Next i


End Sub