Bonjour à tous,

Je me heurte sur le cas suivant :
Je souhaite coller des valeurs d'une colonne issues de "feuil1" dans une autre feuille (feuil3) contenant déjà des valeurs.
Ne souhaitant pas écraser les précédentes valeurs (pour créer un indicateur), je voudrais pouvoir coller mes valeurs dans la colonne d'a coté. (la première non vide)

CE QUI EST QUAND MÊME COCASSE, c'est que j'ai la syntaxe pour coller des valeurs à la premièreligne vide
CI dessous ce que j'ai :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Derlig as Long
 
     'copier valeurs de "feuil1"
Sheets("Feuil1").Activate
Sheets("Feuil1").Columns("A").select
Selection.Copy
 
     'Coller les valeurs à la première ligne vide (en dessous de la dernière valeur)
Sheets("Feuil3").Activate
Derlig = Sheets("Feuil3").Range("A65536").End(xlUp).Row
Plage="A" & Derlig + 1
Sheets("Feuil3").Range(Plage).Select
ActiveSheet Paste
Voila pour coller des valeurs à la première ligne vide.

Je souhaite dupliquer ce principe pour faire du collage de valeurs à lapremière colonne vide.

Après une bonne demi journée de recherche, en utilisant le End(xlToLeft) dans tout les sens, je ne parviens pas à trouver la solution.

Qui peut m'aider?
Merci par avance les amis