XL 2019 Raccourci clavier ou bouton à rajouter macro dessus (supprimer les commentaires vides d'une feuille) ?

[anthoYS]

Bonjour


Une idée ?


Merci

 

[sylvanu]

Bonjour Antho,
Essayez :

Sub SupCommentVides()
    For i = ActiveSheet.Comments.Count To 1 Step -1
        With ActiveSheet.Comments(i)
            If Trim(.Text) = "" Then .Delete
        End With
    Next i
End Sub

 

[anthoYS]

Merci :=)