Copie cellules à la suite

Bonjour,

Je lance un sujet faute d'avoir trouvé une solution sur le net que j'arrive à adapter

Le bout de code ci-dessous est dans une boucle For i = 2 To WorkSheets.Count . Je cherche à récupérer les valeurs de la cellule E3 de chaque onglet et les copier dans ma feuille 1 à partir de B14 à la suite. Le mieux que j'arrive à faire c'est copier à partir de B2 (à cause de l'offset..) mes valeurs à la suite

Sheets(i).Range("E3").Copy Destination:=Sheets(1).Range("B100").End(xlUp).Offset(1, 0)

La solution me paraît à portée de main mais quelque chose m'échappe..

J'ai fait quelques tentatives infuctueuses avecRows.Count , ActiveSheet.UsedRange.Rows.Count, Range.End et Offset

Toute aide est la bienvenue, et merci d'avance

Bonjour,

qq chose comme ca ?

@+

Exactement comme ça fg2b... ! Je n'ai pas encore le réflexe de stocker les valeurs en mémoire mais ça va finir par rentrer

Merci beaucoup et bon weekend !

Bonjour embe, fg2b, le forum,

Une variante....

Sub Macro1()
 For i = 1 To Worksheets.Count
  Sheets("Feuil1").Range("B" & i + 13) = Sheets(i).Range("E3")
 Next i
End Sub

Cordialement,

merci xorsankukai, j'essaye ça au retour du weekend !