Macro effacer valeurs colonne en gardant les formules

Bonjour ,

Débutant en vba je cherche une macro qui efface les valeurs d'une colonne sans pour autant en supprimer les formules .

Est-il possible de faire ca ?

Merci d'avance

Bonjour

A tester

Sub test()
  On Error Resume Next   ' Au cas ou pas de constantes
  Columns("A").SpecialCells(xlCellTypeConstants, 23).ClearContents
  On Error GoTo 0
End Sub