Vider valeur d'une plage de cellule

Bonjour à tous.

J'ai une feuille XSLX rempli de valeur. Plusieurs cellules sont fusionnées.

J'ai une macro pour vider les valeurs. Elle fonctionne. Je souhaite toutefois automatiser le tout car j'ai plusieurs cellules à vider.

J'ai essayer mais j'ai un message d'erreur "Erreur définie par l;'application ou par l'objet dans la macro Vider()

Voici mon code. Vider2() fonctionne mais vider() est problématique.

Merci de votre support.

Sub vider()

'**********************************
'*****Effacer les valeurs du formulaire"
'**************************************

Dim k As Byte

For k = 4 To 12 'Definition de la plage de cellule

 Range(Cells(D, k)).MergeArea.ClearContents
Next k

End Sub

Sub vider2()

    Range("D10").MergeArea.ClearContents

End Sub

Bonjour,

Pour vous à quoi correspondent les variables "D" non définie et "K"

@+

Bonjour.

D représente la colonne et K représente les lignes pour lesquelles je veux effacer le contenue de la cellule.

Désolé ce n'était pas clair :)

Re,

Alors essayez comme ceci

Cells(K, "D").MergeArea.ClearContents

Ou comme ceci

Range("D" & k).MergeArea.ClearContents

@+

Merci BrunoM45 ca fonctionne super bien.

J'ai une question pour toi. Je cherche à définir une variable non pas dans un range mais dans une liste.

J'ai à effacer des cellules sur un range de ligne. Quand c'est en continue ca va bien mais j'ai un range non-continue.

Ma déclaration pour une variable devrait ressembler à ca ( m réprésentant le numéro de ligne):

For M= 65, 68, 71, 78, 79, 80, 83.

Merci de m'indiquer, si possible la bonne syntaxe pour y arriver