Inputbox et somme

Bonjour,

J'ai 2 questions :

1 : J'ai un Private Sub CommandButton2 sur ma Feuil1 qui doit ouvrir un Inputbox pour saisir le nom d'un groupe de formation.
Lorsque je clique OK, j'essaie de copier la valeur du Nom de la formation que j'ai saisi dans mon Inputbox dans la cellule B8 de ma feuille1.
Alors, voici mon code pour ça :

Private Sub CommandButton2_Click()
Dim Nom as String
Nom = Inputbox("Entrer le nom de la Formation", "Nom de la Formation")

Cells("B8") = Nom

End sub

C'est mettre le nom de la formation dans ma cellule qui ne marche pas...


2 : Toujours pour mon même projet : Sur ma Feuil1, dans les cellules de B50 à B70, j'ai la liste de mes élèves qui sont rentrés via un userform.
Sur ma cellule B40, je veux nombre total de mes élèves...

J'ai trouvé ça comme code, mais ça ne marche pas... Je n'ai pas compris comment coder une somme... :

Private Sub Initialize()

'Pour saisir le nombre total des apprenants de la cohorte
Cells(40, 2).Value = CountA(Feuil1.Range("B50;B69"))

End Sub

Ben ca marche pas... et je suis bien embêté...

Merci d'avance pour l'aide

Y.