Sélectionner ligne entière + ajouter un x dans la colonne 1

Bonjour Forum !

J’utilise une macro pour effectuer en une fois plusieurs opérations successives sur la cellule active :

– changer la couleur de la sélection

– passer les textes au format « barré »

– masquer la ligne

Sub griser_rayer_masquer()
    Selection.Font.Strikethrough = True
    Selection.Font.ColorIndex = 48
    Selection.EntireRow.Hidden = True
End Sub

J’aimerais apporter 2 améliorations, mais je ne sais pas le faire (c’est vous dire mon niveau en VBA) :

– appliquer la macro à la ligne de la cellule active (pour éviter d’avoir à sélectionner la ligne manuellement)

– insérer une croix (un x) dans la colonne 1 de la ligne, avant de masquer

Quelqu’un pourrait-il m’aider ?

Merci !

Bonjour

Sub griser_rayer_masquer()
    ActiveCell.EntireRow.Font.Strikethrough = True
    ActiveCell.EntireRow.Font.ColorIndex = 48
    Range("A" & ActiveCell.Row) = "X"
    ActiveCell.EntireRow.Hidden = True
End Sub

Cordialement

Impec, merci !!!

Ça a l'air tout simple le VBA.