Bien le bonjour

Voila j'ai fait un petit bout de code pour me permettre de faire un peux de conjugaison simple. Je m'explique J'ai voulu calculer le nombre de ligne dans une feuille
"si nbligne = 1 alors on écris: il ya 1 ligne - et si nbligne <= 1 alors on écris: il y a nbLigne lignes"
Sa fonctionne bien mais je suis obliger de cliquer sur un bouton pour me donner linfo.

Je voudrais savoir si cela est possible de le faire automatiquement sans cliquer sur un bouton.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sub calculeligne()
Dim NbLignes As Integer
NbLignes = WorksheetFunction.CountA(Range("Liste!A:A")) - 1 'Fonction NBVAL
If NbLignes <= 1 Then
    dire = "client dans la base"
Else
    dire = "clients dans la base"
End If
    Range("C15") = NbLignes & " " & dire
End Sub

merci pour vôtre aide