Mise en place d'une alerte à l'ouverture d'un fichier excel par VBA

Private Sub Worksheet_Activate()
'Pour l'alerte
Dim Alertemaintenance As Range
With Sheets("Planning")
    For Each Alertemaintenance In .Range("Alerte")
        Valeur = .Cells(Alertemaintenance.Row, 1)
        If Alertemaintenance = "1" Then
            MsgBox "Une installation" & Valeur & " doit être révisée immédiatement.", vbCritical, "Date de maintenance atteinte"
        End If
        If Alertemaintenance = "2" Then
            MsgBox "Une installation" & Valeur & " doit bientôt être révisée.", vbExclamation, "Date de maintenance bientôt atteinte"
        End If
    Next
End With
End Sub