nettoyer des cellules

Bonjour à tous,

je voudrais savoir comment faire pour que si la valeur de ma cellule A&i est vide alors je supprime le contenu des cellules des colonnes K à AC.

j'ai essayé ce code mais j'ai une erreur 1004 "la méthode range a échouée".

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub tableau89() Dim b As Integer Dim i As Integer   For b = 4 To Sheets(3).Range("D2").Value   Sheets(b).Select For i = 2 To 20   If Range("A" & i).Value = "" Then   Range("K:AC" & i).ClearContents   End If Next i   Next b     End Sub

---

Merci par avance

Bonjour,
essaye cela :

Code:

---

Range("K" & i & ": AC" & i).ClearContents

---

Cordialement