Sub Macro1()
' Macro1 Macro
' Macro enregistrée le 16/12/2011 par l'agrafe around the corner
With ActiveSheet
.Range("H1").Resize(.[H65536].End(xlUp).Row).AutoFilter Field:=1, Criteria1:="=*SOC*", Operator:=xlAnd
.[_FilterDataBase].Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
.AutoFilterMode = False
End With
End Sub