En VBA un coeff qui n'est pas reporté sur une autre feuille

Bonjour,

J'ai essayé de récupérer la valeur dans la cellule M14 de la Feuil3 pour l'envoyer sur la Feuil1, en Q1 ou en R9.

Mais j'ai dû faire des erreurs dans le code VBA ci-dessous car la valeur n'est pas envoyée :

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.

[a=https://forum.excel-pratique.com/file/img/1/133249_69ecfae605d86650300734.png][/a]

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

     Set F1 = Feuil1
     Set F3 = Feuil3
     Set F5 = Feuil5

    ' Récupérer la valeur de M14 dans Feuil3
     Valeur = F3.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