Tableau et boucle en VBA Excel

Bonjour tout le monde,

Voila j'essaie de créer un script sous VBA pour mon excel afin de pouvoir m'en servir comme base de donnée ( mon supérieur veut pas d'un outil de base de donnée alors faut faire avec   )
Bref donc apres plusieurs script deja a mon actif juste apres avoir commencer a débuter ce langage hier pour la rédaction de ces mêmes scripts je me retrouve a un script apparement tres compliqué pour moi   .

Je vous le résume :

'on se place dans le feuillet "requête"
'on donne a la valeur K la valeur de l'id situé en D9
'ensuite on entre dans le feuillet "logiciel"
'pour l'id pareil que la valeur de la colonne A
'alors les données sont entrées dans le tableau[i,j]
'ou i = ligne et j = colonne
'on entre dans le feuillet "requête"
'on recherche la premiere ligne vide
'et on entre les données dans cette ligne vide au fur et à mesure de la boucle


et dans l'application cela me donne ca :

Sub ExempleTableau()

'Définition des variables
Dim i As Integer, j As Integer
Dim K As Integer

'*Choix du feuillet
Sheets("requête").Select

'*Attribution de l'id a la valeur K
K = Range("D9").Value

'*Définit le tableau à 2 dimensions ainsi que leur taille.
Dim VarTab(1 To 50, 1 To 50) As String

'*On ouvre la feuillet logiciel
Sheets("logiciel").Select

'*Pour i = 1 jusqu'à
For i = 1 To UBound(VarTab, 1) '*boucle sur la 1ere dimension

'* Si k = valeur de i
If Value = K Then
For j = 1 To UBound(VarTab, 2) '*boucle sur la 2eme dimension

'*Alimente les éléments du tableaux
VarTab(i, j) = i & j

'*on entre dans requête
Sheets("requête").Select

'*recherche ligne vide
nli = ActiveSheet.Range("A65356").End(xlUp).Row + 1

'*écrit le résultat du tableau[i,j] dans la ligne vide
ActiveSheet.Cells(nli, i, j) = VarTab(i, j)

Next j

End If

Next i

End Sub

Bien évidemment il ne marche pas pour le moment. Donc is une âme charitable   pouvait m'aider je lui en serais très reconnaissant. Et merci a ceux qui ont regardé mon problèmes même s'ils ne connaissent pas la réponse. Bonne journée.