Sub Macro1()
' Macro enregistrée le 10/01/2012 par l'agrafe
Range("B1:B" & [A65536].End(xlUp).Row).FormulaR1C1 = "=IF(AND(LEFT(RC[-1],2)=""CC"",ISNUMBER(1*MID(RC[-1],3,1))),0,"""")"
Range("B1:B" & [A65536].End(xlUp).Row).SpecialCells(xlCellTypeFormulas, 1).EntireRow.Delete
End Sub