Sub Test1()
Dim t, c As Range
t = Timer
For Each c In [A1:A2340]
c = 0
Next
MsgBox Timer - t & " seconde" '0,06 seconde
End Sub
Sub Test2()
Dim t, c As Range
t = Timer
For Each c In [A1:A2340]
c = Empty
Next
MsgBox Timer - t & " secondes" '5,3 secondes
End Sub
Sub Test3()
Dim t, c As Range
t = Timer
For Each c In [A1:A2340]
c = ""
Next
MsgBox Timer - t & " secondes" '5,8 secondes
End Sub
Sub Test4()
Dim t, c As Range
t = Timer
For Each c In [A1:A2340]
c = "a"
Next
MsgBox Timer - t & " seconde" '0,06 seconde
End Sub
Sub Test5()
Dim t, c As Range
t = Timer
For Each c In [A1:A2340]
c.ClearContents
Next
MsgBox Timer - t & " seconde" '0,17 seconde
End Sub