Bonjour,

Lorsque j'exécute mon code, toutes les lignes sont copiées dans une variable array "Offres", or je ne veux copier que les lignes résultant du filtre.
La cellule qui contient la valeur de mon filtre est sur la feuille "Menu" en "B2"
Les lignes à filtrer sont sur sur la feuille "Offres"

Peut être avez-vous une solution ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
Sheets("Offres").Select
  ActiveSheet.Range("A1").Select
  Selection.AutoFilter
    ActiveSheet.Range("A1").CurrentRegion.AutoFilter Field:=1, Criteria1:= _
        Sheets("Menu").Range("B2")
  With Sheets("Offres").AutoFilter.Range
    ReDim Offres(.Rows.Count, .Columns.Count)
    Offres = .Value
  End With
  Selection.AutoFilter