Selection met police rouge dans feuille

Private Sub tb3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'Date de naissance
    Dim Age As Integer
    
    If Len(tb3.Text) = 0 Then Exit Sub
    
    If IsDate(tb3.Text) Then
        tb3.Text = Format(tb3.Text, BaseFormatDate)
        Age = DateDiff("yyyy", tb3.Text, Now)
        If DateAdd("yyyy", Age, tb3.Text) > Now Then Age = Age - 1
        tbAge.Text = Age
    End If
    
    If Not ControleDateNaissance(tb3.Text) Then
        'Cancel = True   'On laisse passer, sera contrôlé au moment de la mises à jour effective
        tb3.SetFocus    'ne marche pas !!!
    End If

End Sub