Macro copier valeurs dynamique

Bonjour à tous,

Je suis nouveau sur VBA et j'ai un problème que je n'arrive pas à résoudre.

Je veux mettre en place une macro qui copie en valeurs le contenu d'une cellule dans une autre. le problème est que l'endroi ou l'information doit être collé dépend de la position de cette cellule.

Voici le code que j'ai utilisé :

Sub Macro2()

'

' Macro2 Macro

Range("B8").Select

Selection.Copy

Range("K7").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

End Sub

Je voudrais que "K7" puisse être dynamique et soit remplacé par l'adresse présente dans la cellule B2 qui elle même provient d'une fonction.

Je vous ai joint mon fichier Excel afin que ce soit plus clair.

Un grand merci par avance pour votre aide

Bonjour,

Sub Macro2()
Dim Ligne As Long
    Ligne = Range("B1").Value
    Range("B8").Copy
    Range("K" & Ligne).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Application.CutCopyMode = False
End Sub

A+