voila j'ai cette fonction
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 If etape1 = non And etape6b = non Then
        Worksheets("Feuil1").Cells(36, 5).Interior.Color = vbYellow
        Worksheets("Feuil1").Cells(36, 5).Validation.Delete
        Worksheets("Feuil1").Cells(36, 5).Validation.Add xlValidateList, , , "=$L$23:$L$24"
    Else
        Worksheets("Feuil1").Cells(36, 5).Validation.Delete
    End If
Quand je veux effacer grace à au private Sub suivant
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Private Sub Init_Click()
For i = 9 To 47
    For j = 2 To 6
        Cells(i, j).Clear
    Next j
Next i
End Sub
IL y a marquer Error 1004 et me surligna ligne qui est ici sous-ligné dans le premier code.

Or le premier code se repète pour d'autre fonction et fonction normalement.
quelqu'un aurait une idée pour me dépanner?