XL 2013 2 code vba qui se suive

Private Sub Worksheet_Change(ByVal Target As Range)
application.enableevents=false
Select Case Target.Address
Case Is = "$C$2"
If Target.Value = "test" Then Range("F2").Value = Target.Value Else Range("F2").Value = "all"

Case Is = "$I$3"
If Target.Value = "test" Then Range("I4").Value = Target.Value Else Range("I4").Value = "all"

Case Is = "$I$2"
If Target.Value = "" Then Range("I3").Value = Target.Value Else Range("I3").Value = "all"

Case Is = "$I$4"
If Target.Value = "" Then Range("I5").Value = Target.Value Else Range("I5").Value = "all"
End Select
end if 'c'est le end de quel if?? n'aurais tu pas un bug sur cette ligne ?

Dim Cel As Range

For Each Cel In Range("b71:b1000")
If Cel.Value <> "" And Cel.Value = 0 Then
Cel.EntireRow.Hidden = True
Else: Cel.EntireRow.Hidden = False
End If
Next
application.enablevents=true
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False
With Range("AG77:AG5000")
    .Rows.Hidden = False
    If Application.CountIf(.Cells, 0) Then
        .Replace 0, "#N/A", xlWhole
        .SpecialCells(xlCellTypeConstants, 16).EntireRow.Hidden = True
        .Replace "#N/A", 0
    End If
End With
'---suite du code---
Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False
With Range("AG77:AG5000")
    .Rows.Hidden = False
    If Application.CountIf(.Cells, 0) Then
    .EntireColumn.Insert 'insère une colonne auxiliaire
    With .Columns(0)
        .Formula = "=1/(""""&RC[1]=""0"")"
        .SpecialCells(xlCellTypeFormulas, 1).EntireRow.Hidden = True
        .EntireColumn.Delete 'supprime la colonne auxiliaire
    End With
    End If
End With
'---suite du code---
Application.EnableEvents = True
End Sub