Ceci dit, dans le :
peux-tu m'expliquer l'intérêt de "Dim cel as Range" ?Code:Option Explicit Dim i As Integer Dim cel As Range Sub Del() Application.ScreenUpdating = False For i = 4 To Range("A65536").End(xlUp).Row If Cells(i, 2) = 1 Then Cells(i, 1).ClearContents Next End Sub
Option Explicit
Dim i As Integer
Sub Del()
Application.ScreenUpdating = False
For i = 4 To Range("C65536").End(xlUp).Row
If Cells(i, 6) = 1 Then Cells(i, 3).ClearContents
Next
End Sub
Sub Del()
Dim I As Integer 'si le nombre de lignes est inférieur à 32467, si plus choisir LongApplication.ScreenUpdating = False
For I = 4 To Range("F65536").End(xlUp).Row
If Range("F" & I) = 1 Then Range("C" & I).ClearContents
Next
End Sub