Copier les valeurs d'une colonne vers une autre avec condition

Bonjour,

Je souhaite copier des valeurs qui ce trouvent dans une colonne vers une autre, mais copier seulement un nombre precis de valeur en fonction d'une formule qui ce trouve sur ma feuille.

Voici mon code de départ sans la condition que je désir rajouter:

Sub transfert()

Dim derligne As Integer

derligne = Sheets("database_all").Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets("compilation").Range("C7:C10").Copy Sheets("database_all").Cells(derligne, 1)
End If
End Sub

La feuille "Compilation" est celle ou mes valeurs ce trouvent et "database_all" est celle ou mes données doivent-être copier. Maintenant, sur ma feuille compilation, j'ai une cellule ou ce trouve une formule qui génère un nombre, j'aimerais programmer ma macro pour qu'elle récupère le nombre que ma formule va générer qu'elle utilise le résultat pour établir le nombre de cellules à copier vers la base de donnée "database_all"

Exemple: Si ma formule égale à 2, bien j aimerais seulement copier les 2 premières cellule de ma plage dans sur la feuille "database_all".

Que dois-je rajouter sur mon code pour établir cette condition?


Merci à l'avance pour votre aide.