Voilà je vous explique. Sous Excel, je copie des cellules et je veux les copier à la suite d'une liste. J'arrive à aller à la dernière cellule de la liste où il y a de l'écriture (Selection.End(xlDown).Select) mais pas à la suivante... Pouvez vous me dire comment faire en VB svp?
Merci pour votre aide

up!

Je vais essayer d'être plus clair. Voilà ma macro. Sub Stocks()
    Sheets("Jour" ).Select
    Range("A4" ).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("Mois" ).Select
    Range("B3" ).Select
    Selection.End(xlDown).Select
    ActiveSheet.Paste
     
End Sub
 
Je voudrais qu'à la place de copier dans Selection.End(xlDown).Select, elle copie une cellule en dessous.
Pouvez vous m'aider svp...

recupere la ligne de la selection :  
range("A" & activecell.row +1).select
 
ça doit selectionner la cellule d'après ça