Bonjour à tous,

Après quelques semaines d'absence me revoila à nouveau avec un problème sur les bras

J'ai un problème de boucle : Je souhaite faire une action sur toutes les feuilles de mon classeur Excel sauf 2 feuilles bien précises (identifiables par leur nom fixe mais dont la position peut varier dans le classeur) sur lesquelles je souhaite faire une action différente.
J'ai fais une macro qui est la suivante qui fonctionne bien si je ne déplace pas mes 2 feuilles en questions (feuilles en position 5 et 6 dans mon code).

voici le code :
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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
 
 
Dim i As Byte, x As Byte
x = Sheets.Count
 
For i = 2 To 4
    Sheets(i).Select
 
    With ActiveSheet.Rows(7)
        Set c = .Find("Total")
        If Not c Is Nothing Then
            NoCol = c.Column
            Columns(NoCol - 1).Delete Shift:=xlToRight
            Columns(NoCol - 2).Delete Shift:=xlToRight
            DoEvents
        End If
 
    End With
 
Next
 
For i = 5 To 6
    Sheets(i).Select
 
    With ActiveSheet.Rows(7)
        Set c = .Find("Total")
        If Not c Is Nothing Then
            NoCol = c.Column
            Columns(NoCol - 1).Delete Shift:=xlToRight
            Columns(NoCol - 2).Delete Shift:=xlToRight
            Columns(NoCol - 3).Delete Shift:=xlToRight
            Columns(NoCol - 4).Delete Shift:=xlToRight
            DoEvents
        End If
 
    End With
 
Next
For i = 7 To x
    Sheets(i).Select
 
    With ActiveSheet.Rows(7)
        Set c = .Find("Total")
        If Not c Is Nothing Then
            NoCol = c.Column
            Columns(NoCol - 1).Delete Shift:=xlToRight
            Columns(NoCol - 2).Delete Shift:=xlToRight
            DoEvents
        End If
 
    End With
 
Next
 
 
End Sub
En petite novice que je suis :

1-Est-il possible de demander à ma boucle de faire les actions souhaitées sauf sur la feuille "détail monitoring" et la feuille détail "détail biométrie" en les appelant par leur nom? et si oui comment?

2- Comment faire une autre boucle sur mes 2 feuilles "détail monitoring" et la feuille détail "détail biométrie" en les appelant par leur nom?

Un grand merci d'avance pour vos réponses.