Comment rendre invisible ensemble de cellule

Option Explicit

Private Sub Worksheet_Change(ByVal target As Range)
Dim CellAdress, c As Range ' ----------------------------- déclaration des variables
Dim i As Integer
If Not Intersect(target, Range("A3")) Is Nothing Then ' -- active le code au changement des valeurts cellule A3
On Error Resume Next '------------------------------------ gestion des erreurs, évite le blocage du code
    Application.ScreenUpdating = False ' ----------------- suspend le rafraichissement écran, accélérer le code
        Columns("C:APH").EntireColumn.Hidden = False ' --- masque les colonnes de C à APH
        Columns("C:APH").ColumnWidth = 10 ' -------------- réduit la largeur des colonnes à 10
        Range("A3:APH3").NumberFormat = "General" ' ------ change le format de la plage date en format standard
            With ActiveSheet.Range("C3:APH3") ' ---------- boucle sur la plage pour rechercher la valeur critère en A3
            Set c = .Find([A3], LookIn:=xlValues)
                If Not c Is Nothing Then
                    CellAdress = c.Address ' ------------- identifie l'adresse de la valeur trouvée
                End If
            End With ' ------------------------------------ arrête la boucle de recherche
            Range(CellAdress).Select ' -------------------- sélectionne la valeur trouvée
        For i = 3 To 1100 ' ------------------------------- boucle sur les colonnes de 3 à 1100 soit de C à APH
            If Cells(3, i) <> [A3] Then ' ----------------- ligne 3 les cellules ne contenant pas la valeur
                Cells(3, i).EntireColumn.Hidden = True ' -- les colonnes sont masquées
            Else ' ---------------------------------------- sinon si la valeur est trouvée
                Cells(3, i).EntireColumn.Hidden = False ' - la colonne est affichée
            End If ' -------------------------------------- fin de la condition
        Next i ' ------------------------------------------ fin du bouclage ligne 3 des colonnes C à APH
    ActiveCell.Offset(-1, 0).Select ' --------------------- sort de la cellule fusionnée
    Range(ActiveCell, ActiveCell.Offset(0, 2)).Select ' --- sélectionne les trois cellules correspondates au jour trouvé
    Selection.EntireColumn.Hidden = False ' --------------- affiche les trois colonnes concernées
    Selection.ColumnWidth = 40 ' -------------------------- redimentionne la largeur des colonnes concernées à 40
    Range("C3:APH3").NumberFormat = "dddd dd/mm/yyyy" ' --- rétabli l'affichage "jour semaine jour/mois/année" plage C3:APH3
    [A3].NumberFormat = "dd/mm/yyyy" ' -------------------- rétabli l'affichage de la cellule critère A3 jour/mois/année
Application.ScreenUpdating = True ' ----------------------- rétabli le rafraichissement écran
End If ' -------------------------------------------------- fin de la condition
End Sub ' ------------------------------------------------- fin de la procédure