Double boucle for

Bonjour le forum et bon début d'année !

Alors voici mon souci. J'ai deux tableaux de la même dimension placés dans des feuilles différentes (appelons les tableau 1 et tableau 2). Je souhaiterais qu'en cliquant sur un bouton de mon Userform, le tableau 1 se remplisse automatiquement en fonction du tableau 2 (en gros il s'agira d'un copier coller du tableau 2). Pour cela j'ai réalisé une double boucle for mais seule la première colonne se remplissait. J'ai donc décider d'utiliser une boucle while mais même problème ! Voici mon code :

For i = 1 To 3
lgn = 27
lgne = 36
    While lgne <= 30 And lgn <= 39
        fe.Cells(lgne, 6 + i) = fh.Cells(lgn, 7 + i)
        lgn = lgn + 1
        lgne = lgne + 1
    Wend
Next i

fe étant la feuille 1 et fh la feuille 2

Merci d'avance à vous !

Bonsoir ndiaye,

je n'ai pas ton fichier sous les yeux mais, d'après une première lecture, tu peux faire :

fe.Range("G36:I38").Value = fh.Range("H27:J29").Value

A vérifier!

Nettement plus rapide!

A+

Ah ben oui, je suis stupide....

Merci beaucoup !!!