Option Explicit
Private NombreLignes As Long 'Variable tampon pour comparaison avec la valeur du nom nbLignes
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [nbLignes] <> NombreLignes Then
'nbLignes a changé, retenir la nouvelle valeur
NombreLignes = [nbLignes]
Me.Calculate
End If
End Sub