Une modification dans le VBA sur un coefficient

Bonjour,

Le coeff de la feuille "Calcul Coeff" devrait être changé car je ne voudrais pas que la valeur en F24 (j'ai changé le tableau et ça devient G76), ni celle en F79 (j'ai changé le tableau et ça devient T76), c'est à dire qu'elles ne soient pas copiées en Q1 ou R9 sur la feuille1. Mais que ce soit la moyenne générale (été+hiver), soit le coeff se trouvant en M14, qui sera recopié en Q1 ou R9, s'il-vous-plaît...

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

     Select Case Application.Caller          'le nom du bouton qui a appelé cette macro
          Case "Novembre_Avril"
               Set c = F5.Range("F24")       'valeur à coller dans l'autre feuille
          Case "Avril_Octobre"
               Set c = F5.Range("F79")
     End Select

     '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
               If Not c Is Nothing Then F1.Range("Q1").Value = c.Value     'valeur calculée pour l'homme
          ElseIf StrComp(Nom, Range("Nom_Femme").Value, 1) = 0 Then
               If Not c Is Nothing Then F1.Range("R9").Value = c.Value
          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

____________________________________

Autre chose, est-ce possible de protéger la feuille "Calcul Coeff" sans provoquer des erreurs de compilation. Protection nécessaire car j'ai peur que des utilisateurs déforment les données fixes

Encore merci pour avoir lu ce sujet

Bonne journée

J'ai modifié quelques données et protégé la feuille "Calcul Coeff" dans ce classeur :