Sub nombre_Personne()
Dim NbLig As Long, d As Object, c As Range
NbLig = Cells(Rows.Count, 1).End(xlUp).Row 'nombre de ligne en colonne A
Set d = CreateObject("scripting.dictionary") 'création d'un dictionnaire (Dictionary n'accepte pas de doublons)
For Each c In Range("A2:a" & NbLig)
d(c.Value) = "" 'alimente le dictionnaire
Next c
[d1] = d.Count 'nombre d'élément dans le dictionnaire
End Sub