Bonsoir à tous,

J'ai une macro que j'aimerais effectuer sur l'ensemble des feuilles de mon workbook sauf une ("OT"). J'ai tenté un truc, mais je suis bloqué au niveau de la ligne rouge de mon programme.

Merci d'avance de votre aide

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
Sub copie()
Dim Dest As Range
Dim sh As Worksheet
With ActiveWorkbook
  For Each sh In ActiveWorkbook
  If sh.Name <> "OT" Then
  Set Dest = Sheets("OT").Range("A65536").End(xlUp).Offset(1, 0)
Sheets("Feuil3").Range("I82:AN92").Copy Destination:=Dest
Set Dest = Sheets("OT").Range("A65536").End(xlUp).Offset(1, 0)
Sheets("Feuil3").Range("AO82:BT92").Copy Destination:=Dest
Set Dest = Sheets("OT").Range("A65536").End(xlUp).Offset(1, 0)
Sheets("Feuil3").Range("BU82:CZ92").Copy Destination:=Dest
Set Dest = Nothing
End If
  Next sh
  End With

End Sub