Bonsoir Michel
Je t'ai concocté deux petites macros :
Sub EffacerNombre()
Selection.SpecialCells(xlCellTypeConstants, 23).ClearContents
End Sub
Elle efface les nombres comme son titre le dit si bien.
Et
Sub EffacerTexte()
Selection.SpecialCells(xlCellTypeConstants, 2).ClearContents
End Sub
Elle efface les textes comme son titre le dit tout aussi bien, hihi
Je t'invite à aller voir le menu EDITION/ATTEINDRE qui donne de riches possibilités de sélectionner dans une feuille.
Cordialement
Bernard