Enlever des lignes dans différents onglets

[Squoltahthx94]

Bonjour,

Je souhaite enlever les lignes dans des onglets référencés 'Sxxxx' (type "S0101"...) contenant " devis " ou "rdv" mais avant de supprimer les lignes je souhaite voir pour chaque onglet les lignes concernées.

J'ai commencé de la manière suivante :

Dim i As Byte 'déclare la variable i (Incrément)
For i = 3 To Sheets.Count 'boucle sur tous les onglets (en partant du troisième)

 Range("A1:E65000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= mots, Unique:=False
        sup = MsgBox("Etes-vous sur de supprimer ces lignes ?", vbYesNo, "Avertissement")
If sup = vbYes Then
Set r = Range("_FilterDataBase")
r.Offset(2, 0).Resize(r.Rows.Count - 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
ActiveSheet.ShowAllData
Else
ActiveSheet.ShowAllData
Exit Sub
End If
next i

Mais ça ne marche pas et je vois pas le problème

Quelqu'un peu m'aider..merci😎