Changer la selection selon la valeur d'une cellule

Bonjour,

Je recherche le code qui permettrait :

Quand la textbox "Jour" est sélectionnée et la valeur de la cellule B2 (feuille "Prog") >3

La textbox "Validation" soit automatiquement selectionnée

Merci pour votre aide

Bonjour essaie de réparer ceci :

Private Sub CommandButton1_Click()
If ActiveControl.Name = "TextBoxJour" Then 
   If feuilleProg.Cells(2,2).Value >3 Then
      TextboxValidation.SetFocus
   End If
end if
End Sub