bonjours j'ai un crée un code vba qui compte des valeurs et les reclasse dans un tableau


le code est le suivant

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub compteur()
Dim sh As Worksheet
    Dim Ligne As Long
    For Each sh In Worksheets(Array("AAR35", "AAR", "RST", "PCH", "EXP DIF"))
        Ligne = sh.Range("ae" & sh.Rows.Count).End(xlUp).Row
    For i = 2 To Ligne
    For j = 4 To 27
    For k = 2 To 6
    If Cells(k, 3) = sh.Name Then
        If Cells(1, j) = sh.Cells(i, 32) Then
        Cells(k, j) = Cells(k, j) + 1
        End If
    End If
    Next k
    Next j
    Next i
    Next sh
End Sub
le soucis c'est que la durée du traitement est relativement longue donc je voudrais savoir s' il existe un méthode pour aller plus vite
j'ai entendu parler d'un methode qui alimente une variable tableau mais je ne vois pas comment faire