Bonjour à tous,

Je cherche à répéter une macro sur toutes les feuilles de mon classeur (Feuil1, Feuil2,...,Feuil30) sauf sur une (nommée OT). Mais je ne vois pas comment faire.

Je vous joint ma macro. Merci par 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
Sub copie()
 
Dim sh As Worksheet
With ActiveWorkbook
  For Each sh In Worksheets
  'colorier la ligne
  If ActiveCell.Value = "OK" Then
Range(ActiveCell.Offset(0, -26), ActiveCell.Offset(0, -1)).Interior.ColorIndex = 3
 
End If
 
  End With
  Next
End Sub