VBA - Coller NB Ligne Variable sur 1ere Non Vide

Bonjour à tous,

Je suis bloqué sur une macro et j'ai besoin d'aide. Un grand Merci d'avance.

(Malheureusement je ne peux pas joindre de fichier celui ci étant destiné a des fins professionnelles et beaucoup trop lourd)

Mon problème :

--> Au sein d'une "feuil1" Je dois copier / Coller une ligne complète de formule (B48:TN48), sur la première ligne vide de la colonne B.

--> Mais je dois aussi copier coller cette ligne de formule, sur un nombre de ligne variable. (La variable étant un nombre issue d'une somme au sein de la cellule "S7").

Exemple : coller ma ligne de formules, sur "X" lignes, à partir de la première ligne vide.

Merci de votre aide.

En espérant pouvoir vous aidez aussi très vite.

Bonne soirée à tous

Bonsoir,

Comme tu le ferais en manuel !

Inspire-toi de ceci :

Sub test()
    Dim n%, nn%
    With Worksheets("Feuil1")
        n = .Range("S7")
        nn = .Range("B" & .Rows.Count).End(xlUp).Row + 1
        .Range("B48:TN48").Copy .Range("B" & nn).Resize(n)
    End With
End Sub

Cordialement.

NB- Pas de question subsidiaire sans fichier ad-hoc !

Bonsoir MFerrand !

Punaise ca marche ! Un grand merci !

J'avais réussi pour la variable, et pour la 1ere ligne vide mais que séparément, impossible de lier les 2 conditions ensemble.

Fortish !

Par contre, je ne dois faire qu'un copier / coller formules sans mise en forme, et quand je rajoute le coller formules à la fin de ma macro, il part en débogage. Pouvez-vous m'aider à nouveau pour insérer au bon endroit le code ?

Je vous remercie encore !

Maxime

Re,

Sub test()
    Dim n%, nn%
    With Worksheets("Feuil1")
        n = .Range("S7")
        nn = .Range("B" & .Rows.Count).End(xlUp).Row + 1
        .Range("B48:TN48").Copy
        .Range("B" & nn).Resize(n).PasteSpecial xlFormulas
    End With
End Sub

Tout ceci est parfait ! Un grand Merci

Bonne soirée à Vous !