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.

Bonjour

A tester si j'ai bien compris

Bonjour Joco7915 et merci beaucoup

J'ai surement mal expliqué, désolé :
Quand je clique dans "Créer une copie de cette feuille", la valeur dans M14 doit être envoyée sur la feuil1 dans la cellule Q1.
Et si jamais j'avais cliqué au départ, dans la feuil1 sur S9 alors sur la feuil3, la valeur en M14 va sur R9 de la feuil1.

MErci beaucoup Joco7915

Bonne soirée