Comptage de chiffre ou de nombre

Bonsoir à tous,

Je reviens vers vous car je n'ai pas trouvé la solution et je ne sais même pas si ma demande est possible à réaliser.

Tout est expliqué dans le fichier.

Merci pour vos réponses.

Philturf

Bonjour,

à tester,

Sub comptage()
Dim tb(15)
For Each c In Range("AS99:AS105,AZ99:BE105")
x = Split(c, "-")
For i = LBound(x) To UBound(x)
    If x(i) <> "" Then tb(x(i)) = tb(x(i)) + 1
Next
Next
[AO108].Resize(1, UBound(tb)) = tb
End Sub

Merci à toi i100200 pour ton aide je vais tester demain matin et te fais un MP pour te dire.

phiturf