Sub XXMacro1()
Dim cr$, Plg As Range, rep
[A1] = "Données"
[A2] = "RF1487-070km/h-R,""RF1487-0110km/h-R"",-1.63712,43.36955,,,,"
[A3] = "RF1488-070km/h-R,""RF1488-070km/h-R"",-1.63712,43.36955,,,,"
[A4] = "RF1489-090km/h-R,""RF1489-090km/h-R"",-1.63712,43.36955,,,,"
[A5].Resize(5).Formula = "=""ABCefg""&Row()"
rep = MsgBox("Suppression des lignes?", vbYesNo, "Filtrage élaboré par VBA")
Application.ScreenUpdating = False
If rep = 6 Then
'formule de critère
cr = "=OR(ISNUMBER(SEARCH(""*070km/h*"",RC[-2])),ISNUMBER(SEARCH(""*090km/h*"",RC[-2])),ISNUMBER(SEARCH(""*110km/h*"",RC[-2])))"
'filtrage
Range("C2").Formula = cr: Range("A1:A10").AdvancedFilter _
Action:=xlFilterInPlace, _
CriteriaRange:=Range("C1:C2"), _
Unique:=False: Set Plg = [_FilterDataBase]
'suppression des lignes filtrées
Plg.Offset(1, 0).Resize(Plg.Rows.Count - 1).SpecialCells(12).Delete -4162
'Affichage normal
ActiveSheet.ShowAllData
Else
End
End If
Application.ScreenUpdating = True
End Sub