XL 2019 Renseignements obligatoires sous condition d'une cellule pour changer d'onglet

Sub Verif()
    If Sheets("mis à jour").[C3] = "" Then
        Sheets("mis à jour").Select
        [C3].Select
        MsgBox "La cellule C3 doit être remplie"
    End If
End Sub

Sub Worksheet_Activate()
    Verif
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If ActiveSheet.Name = "mis à jour" Then
        If Not IsDate([C3]) Then
            'bla bla bla
            Cancel = True
        End If
    End If
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    If Sh.Name = "mis à jour" Then
       If Not IsDate([C3]) Then
            'bla bla bla
            Sh.Activate
            [C3].Activate
        End If
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [C3]) Is Nothing Then
        If IsDate([C3]) Then [A1].Select
    End If
Fin:
End Sub

Sub Worksheet_Deactivate()
    If Sheets("mis à jour").[C3] <> Date Then
        Sheets("mis à jour").Activate
        CouleurCell = [C3].Interior.Color
        CouleurFont = [C3].Font.Color
        [C3].Interior.Color = vbRed
        [C3].Font.Color = vbWhite
        If MsgBox("La date n'a pas été actualisée" & Chr(10) & "Dois je la remettre à jour ?", vbYesNo + 16, "Probleme") = vbYes Then
            [C3] = Date
        End If
        [C3].Interior.Color = CouleurCell
        [C3].Font.Color = CouleurFont
    End If
End Sub