Suppression de lignes conditionnelle

Bonjour le forum,

dans mon fichier en attachement j'ai 3 lignes.

Je voudrais réaliser une macro qui supprime toutes les lignes sauf celles dont le code est A621 et S45

Merci

MattJol

https://www.excel-pratique.com/~files/doc/Ux4ODClasseur1.xls

Bonjour,

Utilise cette macro à placer en VBA dans un module.

Sub supprime()
'Macro par Dan pour mattjol - Excel Pratique - 10/08/07
Dim cel As Range
For Each cel In Range("A2", Range("A65536").End(xlUp))
If cel.Value = "A652" Or cel.Value = "S45" Then
cel.EntireRow.Delete = True
End If
Next cel
End Sub

Amicalement

Dan

Super

Merci Dan