Incrémentation d'une variable dans array

Bonjour et merci à l'avance pour votre aide.

Ça fait très longtemps que je n'ai pas programmé en vba... et j'ai de la difficulté à résoudre mon code
Je dois copier des cellules non contiguës de la dernière ligne d'une feuille excel dans une autre feuille excel sur la dernière ligne. J'ai écris le code pour faire la copie avec un numéro de ligne et ça fonctionne. Maintenant je voudrais modifier le numéro de ligne après chaque transfert... voir mon code ci-dessous. J'avais pensé définir une variable Ligne et la mettre dans la zone array... J'ai mis pour l'instant ce qui concerne la variable Ligne en commentaire. Je remplaçais le 87 par Ligne dans array....

Code :

Sub Transfert_info()
'
' Transfert_info Macro
' Transfère certaines données de la feuille ''Inscription'' à la feuille ''Gestion paiement parents''
'
' Touche de raccourci du clavier: Ctrl+t
'
Dim tablo As Variant, derlig As Long
'Dim Ligne As Long

'Ligne = 87
'Initialisation du départ
'array representant le nom des cellules de la fiche de saisie dans l'ordre dans lequel elles seront transposées
plage = Array("A87", "e87", "n87", "q87", "r87", "s87", "t87", "x87", "aa87", "ab87", "ac87")
ReDim tablo(0, UBound(plage)) ' redimentionnement d'une variable de type tableau avec le nombre d'élément dans l'array
For i = 0 To UBound(plage)
'inscription des données des cellules dans chaque items da la variable tableau
tablo(0, i) = Sheets("Inscription").Range(plage(i))
Next
'récupération de la première ligne vide et libre de la feuille de destination
derlig = Sheets("Gestion paiement parents").Range("A" & Rows.Count).End(xlUp).Row + 1
'resize de la cellule A et derlig a la dimention du tableau et pose de du tablo
Range("A" & derlig).Resize(1, UBound(plage)) = tablo
'Ligne = Ligne + 1

End Sub


pqrt