Salut Sophie
tu vas ds excel, tu fais ALT F11 , insertion module et tu y colles ceci:
ensuite pour lancer le code, il y a une tite flèche (comme sur les enregistreurs vidéo) noire et tu cliques dessus, c'est tout.
Option Explicit
Sub SOPHIE()
Range('A1:F21').SpecialCells(xlCellTypeConstants, xlNumbers).ClearContents
End Sub