VBA, changer un conditionnel sur coefficient

Bonjour,

Après un changement de tableau et 2 semaines de travail acharné, j'ai réussi, je pense, à adapter le code VBA de BsAlv !!!

Mais j'ai une dernière petite chose à changer :
Je souhaite que la valeur renvoyée sur la feuil1 en Q1 ou R9 soit exclusivement celle en M14 provenant de la feuil3 ci-dessous :

______________________________________________________________

C'est-à-dire, qu'on abandonne les valeurs T76 et G76 comme dans les ligne VBA ci-dessous, pour n'avoir que la valeur M14 qui soit renvoyée en Q1 ou R9

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("T76")       'valeur à coller dans l'autre feuille
          Case "Avril_Octobre"
               Set c = F5.Range("G76")
     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

__________________________________

Merci beaucoup d'avoir lu ce sujet

Bon w.e.