Suppression ligne

[Ju]

' A B C
'1 1 *T
'2 1 SM
'3 13 *T
'4 13 SM
'5 13 AC
'6 18 *T
'7 18 SM
'8 18 S1
'9 19 *T
'10 19 AC
'11 19 LE
'
'Je voudrais supprimer toutes les lignes ayant le meme code
'et que l'une de ces lignes à 'AC' ou 'LE' dans ca colonne C
'(à savoir les lignes 3,4,5,9,10,11)'Est-ce possible???
'Merci d'avance
'@+
'Ju

 

[sylv900]

essaye un truc du genre :

nbligne = ActiveSheet.UsedRange.Rows.Count
valeur=range ('a1')
for i=2 to nbligne
if range ('a' & i)=valeur then

rows ((i & ':' & i).delete
else valeur=range ('a' & i)

endif
next

bon courage