Slt à tout le Forum,


Je viens de récupérer le code ci-dessous sur ce site.

J'ai su le modifier pour qu'il s'adapte à ma demande et cela marche très bien sur la feuille active.
Elle consiste à supprimer toutes les lignes dont les cellules de la colonne C ne contiennent pas la lettre "A", "M" ou "S".

Il faudrait simplement que ce code s'applique sur toutes les feuilles présentes dans le classeur et là je bloque un peu malgré les exemples qu'on peut aussi trouver ici.

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
15
16
17
18
Sub Test ()
 
Dim w As Range, derlig As Long, plage As Range
derlig = Range("C" & Rows.Count).End(xlUp).Row
For Each w In Range("C1:C" & derlig).Cells
  Select Case UCase(w.Text)
    Case "A", "M", "S"
    Case Else
      If plage Is Nothing Then
        Set plage = w
      Else
        Set plage = Application.Union(plage, w)
      End If
   End Select
Next
If Not plage Is Nothing Then plage.EntireRow.Delete
 
End Sub