optimisation code

Sub test()
Dim i&, R As Range
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
On Error Resume Next 'inutile de le mettre dans la boucle. Une fois suffit
For i = 3 To 50
    If Cells(i, 9) + Cells(i, 14) + Cells(i, 18) = 0 Then
        If Not R Is Nothing Then
            Set R = Union(R, Rows(i))
        Else
            Set R = Rows(i)
        End If
    End If
Next i
If Not R Is Nothing Then R.EntireRow.Hidden = True
Application.Calculation = xlCalculationAutomatic
End Sub

Sub Test()
Dim i&, R As Range, Test&
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
On Error Resume Next 'inutile de le mettre dans la boucle. Une fois suffit
For i = 3 To 50
    Test = Cells(i, 9) + Cells(i, 14) + Cells(i, 18)
    If Test = 0 Then
        If Not R Is Nothing Then
            Set R = Union(R, Rows(i))
        Else
            Set R = Rows(i)
        End If
    End If
Next i
If Not R Is Nothing Then R.EntireRow.Hidden = True
Application.Calculation = xlCalculationAutomatic
End Sub