Sub Calcul_Pourcentage()
Dim Tablo(100), Nb_Val As Integer, Ligne As Integer, I As Integer, J As Integer
Nb_Val = Range("A65536").End(xlUp).Row
For I = 1 To Range("A65536").End(xlUp).Row
Tablo(Cells(I, 1)) = Tablo(Cells(I, 1)) + 1
Next I
Ligne = Range("A65536").End(xlUp).Row + 3
For J = 1 To 100
If Tablo(J) <> 0 Then
Cells(Ligne, 1) = J
Cells(Ligne, 2) = Format(Tablo(J) / Nb_Val, "Percent")
Ligne = Ligne + 1
End If
Next J
End Sub