Bonjour ,
ce code ci dessous (code1) fonctionne tres bien, il fait apparaitre
sur la feuille actuelle
dans une listbox les informations ci dessous
(colonne y2)
libelle
poire
pomme
peche

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
(code 1) 
Sheets(1).Agrisq.Clear
Dim flist1()
Range("Y2").Resize(Range("Y2").End(xlDown).Row).Select
fcont = Selection.Count - 1
ReDim flist1(fcont)
i = 0
For Each cc In Selection
 
flist1(i) = cc
i = i + 1
Next
Sheets(1).Agrisq.List() = flist1
mais j'aimerais mettre les parametres de la colonne (y2) dans une autre feuille ( ici sheet(2))

comme ceci mais je n'y arrive pas , voi code ci dessous

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
(code 2) 
Sheets(1).Agrisq.Clear
Dim flist1()
Sheets(2).Range("Y2").Sheets(2).Sheets(2).Resize(Range("Y2").End(xlDown).Row).Select
fcont = Selection.Count - 1
ReDim flist1(fcont)
i = 0
For Each cc In Selection
 
flist1(i) = cc
i = i + 1
Next
Sheets(1).Agrisq.List() = flist1
Merci pour votre aide