Macro: supprimer ligne si un mot se termine par ....

[Marie123]

Bonjour à tous,

J'ai un fichier dans lequel j'ai inséré une macro qui trie, supprime des lignes, etc... Mais je sèche sur une fonction....
J'ai une colonne en L, où certains mots se terminent par "D". Je souhaiterai que la macro supprime les lignes entières lorsque c'est le cas.
Je n'ai rien trouvé de tel dans Google, pourriez-vous m'aider s'il vous plait?

Merci et bonne journée

 

[Yurperqod]

Bonjour à, tous

Inspiré d'exemples lus sur le forum
(Il faut que la colonne M soit vide ou alors il faut mettre les formules dans une autre colonne)

Sub MacroTest()
Dim Fin As Long
Fin = Cells(Rows.Count, "L").End(xlUp).Row
Range("M2:M" & Fin).FormulaR1C1 = "=IF(UPPER(RIGHT(RC[-1]))=""D"",""X"",0)"
Columns("M:M").SpecialCells(xlCellTypeFormulas, 2).EntireRow.Delete
Columns("M:M").Delete Shift:=xlToLeft
End Sub

Avec cette formule, ca supprime les lignes qui finissent par d ou D.

 

[Marie123]

Merci pour votre réponse
Je l'ai testé, J'ai juste modifier le "M" par une colonne vide de mon tableau et ca fonctionne nikel!

Merci beaucoup