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 : Sélectionner tout - Visualiser dans une fenêtre à part
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