Vba et mfc supprimer des lignes

Bonjour,

J'ai cette macro qui est une MFC et qui respect 3 conditions (diviser en 3 blocs), je voudrai qu'au lieu de mettre en couleur les cellules qui rentrent dans ma conditions, qu'on les supprimes.
est-ce possible ?

marco:

Sub Formule()
'
' Formule Macro
'

'

Range("A1:F224").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET($C1="""";$B2=$B3)"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With
' Selection.FormatConditions(1).StopIfTrue = False
Range("A1:F224").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET(ET($D1="""";$C2=$C3);$B2=$B3)"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With
'Selection.FormatConditions(1).StopIfTrue = False
Range("A1:F224").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET(ET(ET($E1="""";$D2=$D3);$C2=$C3);$B2=$B3)"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With
End Sub



J'imagine qu'il faut remplacer patternColorIndex et la ligne color mais je n'est pas réussi