Remise à zero de certaine cellule

Je viens vers vous car j’ai un problème pour effectué une formule Macro de remise à zéro par une touche que j'ai déjà créé

Ajouter un macro qui permet de mettre à zéro les cellules suivantes

TABLEAU1

F7*J39

N7*R39

V7*Z39

AD7*AH39

TABLEAU 2

E43*J62

M43*R83

U43*Z44

V45*Z45

U48*Z49

V50*Z50

U53*Z54

V55*Z55

AC43*AH62

AK43*AP62

TABLEAU 3

E97*J106

M87*R96

U87*Z101

AC87*AH106

TABLEAU 4

F117*J145

un grand merci d'avance pour une solution efficace

Bonjour,

je t'ai mis une solution pour le tableau 1 (que j'ai supposé sur feuil1)

à toi d'ajouter les instructions pour les autres tableaux

Sheets("feuil1").Range("F7:J39,N7:R39,AD7:AH39").ClearContents

Je te remercie infiniment, et te souhaites une excellente journée