Bonjour à tous,  
dans une macro que j'ai réalisée un problème d'erreur "tableau attendu" s'affiche. Je ne sais pas comment le résoudre, de même que je ne sais pas dans quelle partie de la macro je dois insérer "redim cells(2,1)" ou "redim preserve cells(K,1)" J'explique tout ce que je dois faire dans la macro. Corrigez moi si je me trompe !  
 
Private Sub CommandButton1_Click()
    Tantque
End Sub
 
Sub Tantque()
Dim I As Integer 'I lignes
Dim J As Integer 'J lignes
Dim K As Integer
Dim cells As String
 
ReDim cells(2, 1)
 
While Not IsEmpty(Range("A1" ).Select)
    If WorksheetFunction.Isnumeric(cells(K, 1)) Then 'si la cellule contient des chiffres
        cells(I, 2) = cells(I, 1)                    'alors la cellule B2 contient la valeur de la cellule A1
        cells(I, 1).ClearContents                    'et on efface la valeur de la cellule A1
        K = K + 1                                    'ainsi de suite jusqu'à la dernière case contenant des chiffres
        ReDim Preserve cells(K, 1)
    End If
    If cells(K, 1).Value = "Total" Then              'si la cellule contient le mot "total"
        Row("I:I" ).ClearContents                     'alors on supprime la ligne correspondante
        K = K + 1                                    'ainsi de suite jusqu'à la dernière valeur de la colonne
        ReDim Preserve cells(K, 1)
    End If
    If WorksheetFunction.IsText(cells(K, 1)) Then    'si la cellule contient du texte
        cells(I + 1, 1) = cells(I, 1)                'alors la cellule A2 contient la valeur de la cellule A1
        cells(1, 1).ClearContents                    'on efface la valeur de la cellule A1
        K = K + 1                                    'ainsi de suite jusqu'à la dernière valeur qui contient du texte
        ReDim Preserve cells(K, 1)
    End If
 
End Sub