Bonjour,

En parallèle à un autre projet...
J'ai créé un tableau qui me permet d'avoir des informations dans des variables:
Ex:
Banane dans MaListe(1)
Sucre dans MaListe (2)...

Ce tableau étant fait, mon but est de créer une macro qui dirait:
Pour toutes les feuilles commençant par XXX,
Passer en revue la colonne A
Si dans une cellule de cette colonne A, il y a une valeur qui est la même qui MaListe(1)
Alors copié l'info et coller la dans une autre feuille
....

Mon code se présente sous cette forme la:
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
29
30
31
32
33
34
35
36
37
38
39
Sub Liste()
 
Dim MaListe(40) As String
Dim Cel As Range
Dim Cel2 As Range
Dim Counter As Integer
Dim Compteur As Integer
Dim ws As Worksheet
 
 
 
Set Cel = Worksheets("Feuil4").Range("A1")
Compteur = 1
 
While Cel.Offset(Compteur) <> ""
Compteur = Compteur + 1
Wend
 
For i = 1 To Compteur
    MaListe(i) = Cel.Offset(i - 1)
Next i
 
Set Cel2 = Range("A6")
Counter = 1
 
For Each ws In Worksheets
    If Left(ws.Name, 3) = "GEO" Then
        While Cel2.Offset(Counter) <> ""
            If Cel2.Offset(Counter) = MaListe(1) Then
            Worksheets("Feuil5").Range("A65535").End("XlUp").Row = Cel2.Offset(Counter)
            End If
        Counter = Counter + 1
        Wend
 
    End If
 
Next ws
 
End Sub
Le code ne fonctionne pas, le problème se situe au niveau de MaListe(1). Je pense que le programme ne doit pas ce que contient MaListe(1). Si MaListe(1) contient banane, le programme ne recherche pas banane.

y a t il un ligne de code qui permet cela?
(Ou alors le problème vient il d'autres part?)