Renvoi de données vers une autre feuille

Bonjour,

Je fais appel à votre aide pour une macro que j'ai créé qui me semble pourtant simple mais que je n'arrive pas à faire fonctionner ...

Voilà le code :

Sub creation()
'
' creation Macro
'

'
    
Dim Cible As Range

Dim R1 As String, R2 As String, D1 As String, D2 As String, T1 As String, T2 As String, TT As String

Set Cible = Sheets("Reference crees").[B1]

Set Cible = Cible.End(xlDown)
Set Cible = Cible.End(xlDown)
Set Cible = Cible.Offset(1)

R1 = Sheets("Configurateur").[D7]
R2 = Sheets("Configurateur").[E7]
T1 = Sheets("Configurateur").[D15]
T2 = Sheets("Configurateur").[E15]
P1 = Sheets("Configurateur").[E22]
P2 = Sheets("Configurateur").[E24]
TT = Sheets("Configurateur").[G23]

Cible = R1

Set Cible = Cible.Offset(, 1)
Cible = D1

Set Cible = Cible.Offset(, 1)
Cible = P1

Set Cible = Cible.Offset(1, -2)
Cible = R2

Set Cible = Cible.Offset(, 1)
Cible = D2

Set Cible = Cible.Offset(, 1)
Cible = P2

Set Cible = Cible.Offset(, 1)
Cible = TT
    
End Sub

Voilà les captures d'écran :





Je pense que le code explique de lui même ce que je cherche à faire, mais n'hesitez pas à me demander des précisions si besoin.

Merci d'avance et bonne journée à vous !