Private Sub CommandButton1_Click()
Set s1 = Sheets("Compt")
derligS1 = s1.Cells(Rows.Count, 1).End(xlUp).Row
nombre = 0
For i = 2 To derligS1
nombre = nombre + 1 / (WorksheetFunction.CountIf(s1.Range(s1.Cells(2, 1), s1.Cells(derligS1, 1)), s1.Cells(i, 1)))
Next
MsgBox "Le nombre sans doublon est : " & nombre
End Sub
Change les 1 (colonne A) par 10 (colonne J) dans la ligne suivante :
nombre = nombre + 1 / (WorksheetFunction.CountIf(s1.Range(s1.Cells(2, 1), s1.Cells(derligS1, 1)), s1.Cells(i, 1)))