Bonjour,
je me permet de demander de l'aide sur un problème qui me laisse tourner en rond

voilà : dans les trois feuilles du classeur je souhaite recuperer les valeur
de la première colonnes dec chaque feuille alors
je fais le code suivant
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
sub recuperer()
dim v_col as string  'la valeur de cellule
dim v_nom as string ' le nom de la feuille
dim  v_colFeuil as string ' la concatenation des valeur de colonne
dim  v_colFeuilCla as string ' la concatenation des valeur de toutes les feuilles
dim i as integer
 
v_col = ""
v_nom= ""
v_colFeuil =""
v_colFeuilCla =""
i = 2 ' le i=1  represente les titres
For Each feuil In Worksheets
v_nom = feuil.name
While Sheets(v_nom).Cells(i, 1) <> ""
   If Sheets(v_nom).Cells(i, 1) <> v_col Then
           v_col= Cells(i, 4)
     End If
        i = i + 1
        v_colFeuil= v_colFeui & v_col 
  Wend
 
v_colFeuilCla = v_colFeuilCla &  v_colFeui & chr(10)
next
 
msgbox v_colFeuilCla
end sub
je ne récupere que les valeur de la dernière feuille

est ce que qu'un peut m' orienter ou je me plante c'est sympa