j'ai trouvé, voila la reponse:
Sub MACRO_TEST()
'efface tout
Range("G1:AK20").Clear
'efface les commentaires
Range("G1:AK20").ClearComments
'n'efface que le contenu
Range("G1:AK20").ClearContents
'efface le formats
Range("G1:AK20").ClearFormats
End Sub