Macro effacement de celulles

Bonsoir

je suis vraiment trop long a réaliser ce genre de macro, y a t il quelqu' un qui peut donner un coup de main svp

Merci

Bonjour

Avec ce code à associer à votre bouton.

Sub efface()
'efface sans supprimer les formules
Dim dlg As Integer
dlg = Range("A" & Rows.Count).End(xlUp).Row
Range("A5:I" & dlg).SpecialCells(xlCellTypeConstants, 3).ClearContents
End Sub

Cordialement

ok merci beaucoup