Utiliser un tableau

Sub NbreImmatSIPP_EDMR()
Dim Nb As Long
Nb = WorksheetFunction.CountIf(Columns(3), "EDMR")
MsgBox Nb
End Sub

Function NbImmat(Code As String, NumColonne As Integer) As Long
'Cette fonction retourne le nbre d'immatriculation en fonction
    'du code SIPP
    'du numéro de colonne ou se trouvent les codes
NbImmat = WorksheetFunction.CountIf(Columns(NumColonne), Code)
End Function

Sub AppelFonctionNbImmat_CodeSIPP()
'procédure qui appelle la fonction NbImmat
Dim MaVar As Long

'en lui "injectant" le code SIPP choisi et le numéro de la colonne (ici 3 pour colonne C)
MaVar = NbImmat("EDMR", 3)
MsgBox MaVar
'A noter : cette fonction peut tout aussi bien te retourner un nombre de véhicule immatriculé pour la direction PACA :
' MaVar = NbImmat("PACA", 6)
'ou le nbre de véhicule au statut ON :
' MaVar = NbImmat("ON", 4)
End Sub

Sub TCD_NbImmat() 'Utilise les données contenues dans la Feuil1
'Cette procédure va :
    '- établir la liste des codes, sans doublons,
    '- compter le nombre d'occurence de chaque code
    '- restituer le tout sous forme d'un tableau en Feuil2
Dim ListeCodesSIPP As Object
Dim Feuille As Worksheet
Dim TablCodes()
Dim i As Long, t As Single
  
t = Timer
Set Feuille = Sheets("Feuil1")
Set ListeCodesSIPP = CreateObject("Scripting.Dictionary") '==> création de l'objet dictionnary
'On appelle la procédure ImporterLaTableFLOTTE afin de remplir la feuille avec les données
Call ImporterLaTableFLOTTE
'on remplit la variable tableau TablCodes avec les données contenues colonne C :
TablCodes = Feuille.Range("C2:C" & Feuille.Range("C" & Rows.Count).End(xlUp).Row)
'Boucle sur les données de la variable tableau
For i = LBound(TablCodes) To UBound(TablCodes)
   'On compte le nombre d'occurence de chaque code :
   ListeCodesSIPP(TablCodes(i, 1)) = ListeCodesSIPP(TablCodes(i, 1)) + 1
Next i
'Restitution des données :
With Sheets("Feuil2")
   .Range("C2").Resize(ListeCodesSIPP.Count, 1) = Application.Transpose(ListeCodesSIPP.keys)
   .Range("D2").Resize(ListeCodesSIPP.Count, 1) = Application.Transpose(ListeCodesSIPP.items)
End With
MsgBox Timer - t & " secondes."
End Sub

Option Explicit

Dim Donnees()

Sub ImporterLaTableFLOTTE()
Dim cn As ADODB.Connection
Dim Rst As ADODB.Recordset

Dim strQuery As String, strChemin As String ', Donnees() => on peut la supprimer d'ici
Dim t As Single, Col As Integer, i As Long, dl As Long

't = Timer
Set cn = New ADODB.Connection
'...
'...

Sub TCD_NbImmat_2() 'Utilise les données contenues dans la variable tableau Donnees
Dim ListeCodesSIPP As Object
Dim TablCodes()
Dim i As Long, t As Single
  
t = Timer
Set ListeCodesSIPP = CreateObject("Scripting.Dictionary") '==> création de l'objet dictionnary
'On appelle la procédure ImporterLaTableFLOTTE afin de
    '- remplir la feuille avec les données,
    '- remplir la variable tableau Donnees()
Call ImporterLaTableFLOTTE

'Boucle sur les données de la variable tableau
For i = LBound(Donnees) To UBound(Donnees)
   'On compte le nombre d'occurence de chaque code :
   ListeCodesSIPP(Donnees(i, 3)) = ListeCodesSIPP(Donnees(i, 3)) + 1
Next i
'Restitution des données :
With Sheets("Feuil2")
   .Range("F2").Resize(ListeCodesSIPP.Count, 1) = Application.Transpose(ListeCodesSIPP.keys)
   .Range("G2").Resize(ListeCodesSIPP.Count, 1) = Application.Transpose(ListeCodesSIPP.items)
End With
MsgBox Timer - t & " secondes."
End Sub

Donnees = Rst.GetRows(100000)

Sub ImporterLaTableFLOTTE()
Dim cn As ADODB.Connection
Dim Rst As ADODB.Recordset
Dim strQuery As String, strChemin As String, Donnees()
Dim t As Single, Col As Integer, dl As Long

t = Timer
Set cn = New ADODB.Connection
strChemin = "C:\Users\Desktop\conrade82\Données cobf.xls"
With cn
    .Provider = "MSDASQL"
    .ConnectionString = "Driver={Microsoft Excel Driver (*.xls)};" & "DBQ=" & strChemin & "; ReadOnly=False;"
    .Open
End With
strQuery = "SELECT * FROM [FLOTTE$]"
Set Rst = New ADODB.Recordset
Set Rst = cn.Execute(strQuery)
Donnees = Rst.GetRows(100000)
MsgBox "Macro réalisée en : " & Timer - t & " secondes. On retrouve : " & Donnees(3, 2) & " en cellule : B4, et : " & Donnees(12, 5) & " en cellule : E13."
cn.Close
Set cn = Nothing
Set Rst = Nothing
End Sub

With Cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
            & Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""
        .Open
    End With