Récupérer valeur de cellule

Bonjour,

Je suis débutant en excel vba. je voudrais récupérer la valeur d'une cellule et attribuer un nombre au résultat de la cellule et afficher ce nombre dans une autre cellule

Code:

---

1 2 3 4 5 6

Sub Btn_Calcul() if (Range("C3").value)="femme" then (Range("F3").value)=7 if (Range("C3").value)="homme" then (Range("F3").value)=9 End If End Sub

---

donc je veux que si femme est entree dans la cellule C3 ca m'affiche 7 dans la cellule F3 et si homme est entree dans la cellule C3 ca affiche 9 dans la cellule F3

j'ai fait le code ci dessus mais ca ne marche pas qqun peut m'aider

merci

Code:

---

1 2 3 4 5

Sub Btn_Calcul() If Range("C3").Value = "femme" Then Range("F3").Value = 7 If Range("C3").Value = "homme" Then Range("F3").Value = 9 End If End Sub

---