les commentaires et les couleurs de fond ne s'effacent pas

Option Explicit
Private Sub Worksheet_Activate()
Dim i As Integer
For i = 5 To Range("IV2").End(xlToLeft).Column 'boucle sur toutes dates
    If Cells(2, i) < Date Then
        Cells(2, i).EntireColumn.Hidden = True 'masque les colonnes
        Cells(2, i).ClearComments 'enlève les commentaires
        Cells(2, i).Interior.ColorIndex = xlNone 'enlève la couleur
    End If
Next i
End Sub

  For a = 5 To 126
        For i = Sheets("feuil2").[e2].Column To Sheets("feuil2").[e2].End(xlToRight).Column 'boucle sur toutes dates
            If Cells(2, i) < Date Then
            
            Cells(a, i).ClearComments 'enlève les commentaires
               Cells(a, i).Interior.ColorIndex = xlNone   'enlève la couleur
                Cells(2, i).EntireColumn.Hidden = True 'masque les colonnes
                    
                        'End If
                            
                            
                            End If
                       Next i
                       Next a
                       End With

Private Sub Worksheet_Activate()
Dim i As Integer
For i = 5 To Range("IV2").End(xlToLeft).Column 'boucle sur toutes dates
    If Cells(2, i) < Date Then
        With Columns(i)
            .Hidden = True 'masque les colonnes
            .ClearComments 'enlève les commentaires
            .Interior.ColorIndex = xlNone 'enlève la couleur
        End With
    End If
Next i
End Sub