Si cellule contient du texte alors effacer une autre

[Aimeric]

Bonjour à tous,

J'aurais besoin de votre aide pour finaliser une mise en forme d'une de mes macros.

Sur la colonne A, j'ai une colonnes de texte et selon ce que les cellules contiennent, j'aimerais supprimer le contenu sur la colonne AT / même ligne.

Voila ce que j'ai commencé à écrire mais qui ne marche pas:
(Pour info, DL correspond à ma dernière ligne non vide et la tableau démarre à la ligne 13)

Dim i As Integer
For i = 13 To DL

If Cells(i,A).Value like "*Secteur*"
Then Cells(i,AU).Select.ClearContents


Et je profite pour demander de l'aide car j'aimerais faire cette suppression de contenu pour 2 conditions (contient Secteur ou Flacons")

Merci beaucoup de votre aide

 

[Jacky67]

Bonjour à tous,
Sur la colonne A, j'ai une colonnes de texte et selon ce que les cellules contiennent, j'aimerais supprimer le contenu sur la colonne AT / même ligne.
Et je profite pour demander de l'aide car j'aimerais faire cette suppression de contenu pour 2 conditions (contient Secteur ou Flacons")

Bonjour,
Cela pourrait ressembler à ceci

For i = 13 To dl
If Cells(i, "A").Value Like "*Secteur*" Or Cells(i, "A").Value Like "*Flacons*" Then Cells(i, "AT").ClearContents
Next

 

[Aimeric]

Merci, c'est exactement ça

Il me manquait les "" et le "or" !