Private Sub CommandButton1_Click()
Dim nbrLien As Integer
nbrLien = ActiveSheet.Hyperlinks.Count
If nbrLien < 2 Then
MsgBox "Il y a " & nbrLien & " lien dans la feuille actuellement. "
Else
MsgBox "Il y a " & nbrLien & " liens dans la feuille actuellement. "
End If
End Sub