Ajout d'un bouton pour effacer automatiquement des cellules

bonjour a tous,

je souhaite ajouter un bouton effacer qui remet certaines cellules à vide.

il s'agit des cellules en blanc dans mon tableau (voir fichier). je veux pourvoir les vider automatiquement à l'aide d"un bouton. en cliquant sur le bouton "tout effacer"

Bonjour,

Un exemple à adapter sur autant de plages/cellules que tu veux :

Sub Efface()
Range("D6:D12").ClearContents
Range("H13").ClearContents
End Sub

C'était un jeu ou quoi, ce gris très clair dans la colonne D (242,242,242) ?

Bon essayez ceci :

Sub TOUTEFFACER()
    Dim plage As Range, cel As Range

    Set plage = Range("A1:AT29")

    For Each cel In plage
        If cel.Interior.Color = RGB(255, 255, 255) Then
            cel = ""
        End If
    Next cel
End Sub