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