Supprimer valeurs commençant par

Bonjour à tous,

Je souhaite supprimer des valeurs qui commencent par A (pour aucun...), par un F, par L et par un E. Je sais que ça doit être une petite erreur mais je bloque complet...

J'ai écrit ce code :

For ligne = 8 To dernière_ligne
OFS = Sheets("POF").Range("B" & ligne).Value

If OFS = "A*" Then 
 Sheets("POF").Range("B" & ligne).ClearContents

 ElseIf OFS = "F*" Then
Sheets("POF").Range("B" & ligne).ClearContents
...

 End If

Mon code fonctionne lorsque j'écris la totalité du mot, par exemple pour la lettre A lorsque je mets AUCUN :

If OFS = "AUCUN" Then 
 Sheets("POF").Range("B" & ligne).ClearContents

Sauf que pour le reste de mes lettres, les mots sont aléatoires sauf pour la première lettre. Je pense que cela vient de mon étoile, je ne comprends pas pourquoi...

Dans l'attente de votre précieuse aide !

Bonjour Homéa

Dans votre code, VBA cherche l'égalité : A*

Il faut mettre

If OSF Like "A*" Then

Vous auriez pu aussi bien mettre

If Left(OFS,1) = "A" then

A+

Bonjour à tous

En essayant de remplacer If OFS = "A*" Then par if OFS like "A*" then

oups! j'suis arrivé en retard.

Oh merci pour vos réponses (et votre réactivité), les deux solutions fonctionnent ! Je savais que c'était quelque chose de tout bête...