[XL-2003] Tableau: trouver la colonne qui a le plus de valeur

J'ai trouvé une solution,
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
40
41
42
Dim a As Range
Dim b As String, c As String, d As String
Dim r As Long, q As Long, result0 As Long, resulti As Long, resultretenu As Long
 
    If Ttb_ChoixFil = "" Then
        MsgBox "Veuillir saisir une filière de traitement à ajouter à la base de données!"
    Else
        With Sheets("listes")
            Set a = .Range("choixmode").Find(Ltb_ModeTraitement.Value, LookIn:=xlValues, lookat:=xlWhole)
            If Not a Is Nothing Then
                b = a.End(xlToLeft).Address
                q = a.Row
                r = a.End(xlDown).Row
                result0 = r - q
                'Boucle pour vérifier le nombre de ligne par colonne afin d'insérer une ligne que lorsque que cela est nécessaire
                For i = 1 To 3
                    q = .Range(b).Offset(0, i).Row
                    r = .Range(b).Offset(0, i).End(xlDown).Row
                    resulti = r - q
                    If resulti < result0 Then
                        resultretenu = result0
                    Else
                        resultretenu = resulti
                    End If
                Next i
                'Permet d'insérer la nouvelle filière
                If result0 < resultretenu Then
                    c = .Range(a.End(xlDown).Address).Offset(1, 0).Address
                    .Range(c).Value = Ttb_ChoixFil.Value
                    MsgBox "If1"
                'Permet d'insérer la nouvelle filière dans une nouvelle ligne
                Else
                    c = .Range(a.End(xlDown).Address).Offset(1, 0).Address
                    d = .Range(c).Row
                    .Rows(d).Insert
                    .Range(c).Value = Ttb_ChoixFil.Value
                End If
            End If
            Set a = Nothing
        End With
    End If
End Sub
Il y avait surement plus, simple en déclarant un tableau mais je na sais pas faire...