Bonsoir
Je suis sous win 7 et Excel 2010 et je bute sur le remplacement d'un nom d'onglet par une variable
ci-dessous "KPI01 In Inventory" = nom d'un onglet comme vous le voyez : il est utilisé 3 fois dans cette partie de mon macro ( je cree 17 onglets )

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
'
    ' Copier / Coller des IN INVENTORY pour "KPI01 In Inventory"
    '
    Windows("All Hardware and Network CI By Location Report.xlsx").Activate
    Range("B2").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.AutoFilter
    ActiveSheet.Range("$B$2:$AL$" & Lastline).AutoFilter Field:=11, Criteria1:= _
        "In Inventory"
    ActiveSheet.Range("$B$2:$AL$" & Lastline).AutoFilter Field:=12, Criteria1:= _
        "Deployable"
    ActiveSheet.Range("$B$2:$AL$" & Lastline).AutoFilter Field:=6, Criteria1:= _
        "Laptop", Operator:=xlOr, Criteria2:="=Desktop"
    Range("B2").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.Copy
    Windows("KPIs.xlsx").Activate
    Sheets("KPI01 In Inventory").Select
    Range("A1").Select
    ActiveSheet.Paste
    Cells.Select
    Application.CutCopyMode = False
    MieEnform Sheets("KPI01 In Inventory")
    Sheets("KPI01 In Inventory").Select
    Cells.Select
    ActiveSheet.Range("$A$1:$AL$" & Lastline).RemoveDuplicates Columns:=2, Header:= _
        xlYes


Merci