Option Explicit
Sub NbValeurs()
dercol = Cells(1, Columns.Count).End(xlToLeft).Column
derlin = Cells(Rows.Count, 1).End(xlUp).Row
tablo = Range("F2:" & Cells(derlin, dercol).Address)
Set dico = CreateObject("Scripting.dictionary")
For n = LBound(tablo, 1) To UBound(tablo, 1)
For m = LBound(tablo, 2) To UBound(tablo, 2)
If tablo(n, m) <> "" Then
x = tablo(n, m)
dico(x) = x
End If
Next
Next
Sheets("Feuil5").Range("A1") = "ID Patients"
Sheets("Feuil5").Range("A2").Resize(dico.Count) = Application.Transpose(dico.keys)
Sheets("Feuil5").Range("B1") = "Nombre de Patients"
Sheets("Feuil5").Range("B2") = dico.Count
Sheets("Feuil5").Select
End Sub