comptage éléments tableau

Bonjour,

A partir d'un tableau de données je souhaite effectuer quelques opérations (soustraction, comptage) comme indiqué dans le fichier en pièce jointe

voici le code que j'ai a disposition. Il ne fonctionne pas et je ne sais pas comment compter le nombre d'éléments que contient ma liste

Merci pour votre aide

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Sub tableau()
'exploration de la ligne 2, de la colonne 5 jusqu'a la derniere non vide
For n = 5 To f.Range("IV3").End(xlToLeft).Column
'balyage de la colonne de la ligne 2 jusqu'a la derniere non vide
For m = 2 To f.Cells(65536, n).End(xlUp).Row
        Aarriv = ""
        Barriv = ""
        'pour n'avoir que les valeurs numériques
        If (IsNumeric(f.Cells(m, n)) And f.Cells(m, n) <> "\") Then
        'si la cellule contient "/" alors on incrément une liste
        If f.Cells(m, n) = "\" Then
        liste = liste & f.Cells(m, 3) & ";"
        End If
        If Adep = "" And f.Cells(m, n) <> "\" Then
        Adep = f.Cells(m, 3).Value
        Bdep = f.Cells(m, n).Value
        liste = liste & f.Cells(m, 3) & ";"
        Else
        If f.Cells(m, n) <> "\" Then
        Aarriv = f.Cells(m, 1).Value
        Barriv = f.Cells(m, n).Value
        liste = liste & f.Cells(m, 3) & ";"
        End If
        End If
        End If
 
Next m
    Cells(22, n) = Aarriv - Adep
    Cells(23, n) = Barriv - Bdep
    'If liste <> "" Then 'compter le nombre d'éléments différents de la liste
    'Cells(24, n) = nombre d'éléments de la liste
 
   Adep = ""
   Bdep = ""
   liste = ""
 
Next n
 
End Sub