Bonjour,
essaie ce code à placer en VBA dans un module et lui associer un bouton.
Sub test()
'Macro Dan pour bclement le 07/06/2010
Dim i As Integer
For i = Range("B65536").End(xlUp).Row To 1 Step -1
Select Case Range("B" & i)
Case "F4", "F456", "F56", "T4", "T456", "T56", "V4", "V456", "V56"
Case Else: Rows(i).Delete
End Select
Next
End Sub
Amicalement