Bonjour à tous,

j'ai cette macro qui me permet de faire un filtre sur plusieurs onglets.

Je souhaite avoir un seul message si j'ai des données dans mon filtre. Mon code m'indique un message d'erreur pour chaque onglet alors que je n'en souhaite qu'un seul :


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sub Macro1()
Dim feu As Long
For feu = 4 To Sheets.Count
    Sheets(feu).Range("$A$6:$F$800").AutoFilter Field:=2, Criteria1:=RGB(248, 203, 173), Operator:=xlFilterCellColor
 
    MsgBox Range("A7:A30").SpecialCells(xlCellTypeVisible).Count
 
 Next feu
 
End Sub

Merci par avance pour votre aide