Boucle qui ne fonctionne pas ...

Bonjour tout le monde,

j'ai un petit problème qui me bloque complètement dans mon "apprentissage" :

Je n'arrive pas à comprendre pourtant j'ai 2 livres devant moi et le net ... dommage.

Si quelqu'un veut bien m'aider ce serait top.

Je m'explique, je sais que cela a déjà été posé mais je n'arrive pas à renvoyer des données d'une feuille appelée FICHE CDE vers une feuille appeler SYNTHESE via VBA quand je valide ma commande (je vais mettre un bouton validation) !

Parfois, il ne me prend qu'une ligne, parfois rien ...

Pour le moment je teste cela :

Sub Synthese()

Dim i

Set a = Sheets("SYNTHESE")
Set b = Sheets("FICHE CDE")
derln = a.Range("A" & Rows.Count).End(xlUp)(2).Row

Do
If i = "T" Then

a.Range("A" & derln) = b.Range("F10")
a.Range("B" & derln) = b.Range("H17")
a.Range("F" & derln) = b.Range("F20")
a.Range("G" & derln) = b.Range("B20")
a.Range("H" & derln) = b.Range("D20")
a.Range("I" & derln) = b.Range("E20")

End If

Loop

End Sub


Mais cela tourne en boucle et ne fait rien ...

Help please, avec expliaction ce serait idéal

Merci d'avance de votre compréhension ...

Je mets mon tableau ici : http://www.cjoint.com/c/GFDdDYffMnR

Il y a des bouts de code que je vais essayer de compiler après, mais comme cela vous pouvez voir ce que je veux faire

Merci
Louisa