Obliger qu'une valeur ne soit jamais inférieure à 4

Bonjour,

Comment faire en sorte que si "Valeur" est inférieure à 4 alors Valeur = 4. C'est à dire qu'entre 1 et 4 en M14, la valeur renvoyée sur la feuil1 sera toujours 4 !

Sub M_Sheet_Copie_Calcul_du_Coeff_Muscu()
     Dim Nom As String, Sh As Worksheet, F1, F5, c As Range

     Set F1 = Feuil1
     Set F5 = Feuil5

    ' Récupérer la valeur de M14 dans Feuil3
     Valeur = F5.Range("M14").Value

     'se déplacer vers F1 *****************************************************
     Nom = Range("Nom_calcul_Muscu").Value
     If Len(Nom) = 0 Then
          MsgBox "nom est inconnu"
     Else
          If StrComp(Nom, Range("Nom_Homme").Value, 1) = 0 Then
              F1.Range("Q1").Value = Valeur     'valeur calculée pour l'homme
          ElseIf StrComp(Nom, Range("Nom_Femme").Value, 1) = 0 Then
              F1.Range("R9").Value = Valeur
          Else
               MsgBox "nom ne correspond pas avec le nom de l'homme ou de la femme", vbCritical: Exit Sub
          End If
          M_Copie_Muscu                      'créer copie de cette feuille
          M_RAZ_Muscu (Not c Is Nothing)     'vider les valeurs de cette feuille sans confirmation si nom est connu
          Application.GoTo F1.Range("A1")
     End If

End Sub

Merci pour votre aide

Bonne journée