Supprimer contenu si commence par

Bonjour,

Dans une colonne , je veux supprimer le contenu des cellules si ce dernier ne commence pas par S00 ou S01

c à d dans une cellule ou le contenu S00ERRR , ou S01KKKK c ok pour S03000 alors supprimer

je joins un fichier exemple

Merci par avance

Salut,

essaye ça :

Sub efface()
Dim aa As String

Range("D1").Select
    Do Until IsEmpty(ActiveCell)
    aa = Left(ActiveCell, 4)
        If aa <> "S003" And aa <> "S004" Then
            ActiveCell.Delete shift:=xlUp
        Else
        ActiveCell.Offset(1, 0).Select
        End If
        Loop
End Sub

Bonsoir Nabil, Game Over,

Autre solution avec boucle ascendante.

Cordialement.