Copier des données depuis un userform sur une autre feuille

If UserForm1.ComboBox2.Value = "VL" Then

'deselectionne le filtre
 Sheets("VL").Range("A1").AutoFilter
 
 Dim D_l_VL As String
D_l_VL = Sheets("VL").Cells(65536, 1).End(xlUp).Row + 1
 
'date et heure
Sheets("VL").Cells(D_l_VL, "A").Value = Format(UserForm1.TextBox6.Value, "MM/DD/yy")
'num demande
Sheets("VL").Cells(D_l_VL, "b").Value = UserForm1.TextBox7.Value
'date debut
Sheets("VL").Cells(D_l_VL, "c").Value = Format(UserForm1.TextBox2.Value, "MM/DD/yy")
'date fin
Sheets("VL").Cells(D_l_VL, "d").Value = Format(UserForm1.TextBox5.Value, "MM/DD/yy")
'lieu mise en place
Sheets("VL").Cells(D_l_VL, "e").Value = UserForm1.TextBox8.Value
'destination
Sheets("VL").Cells(D_l_VL, "f").Value = UserForm1.TextBox9.Value
'type soutien
Sheets("VL").Cells(D_l_VL, "g").Value = UserForm1.ComboBox4.Value
'beneficiaire
Sheets("VL").Cells(D_l_VL, "h").Value = UserForm1.ComboBox3.Value
'nbre pax
Sheets("VL").Cells(D_l_VL, "i").Value = UserForm1.TextBox10.Value
'nbre vhl
Sheets("VL").Cells(D_l_VL, "j").Value = UserForm1.TextBox11.Value
'nbre conducteur
Sheets("VL").Cells(D_l_VL, "k").Value = UserForm1.TextBox12.Value
'pool
Sheets("VL").Cells(D_l_VL, "l").Value = UserForm1.ComboBox5.Value

@@@ a partir d'ici ça bloque@@@

Sheets("VL").Cells(D_l_VL, "m").Hyperlinks.Add Anchor:=Selection, Address:= _
 "" & Sheets("pas_touche").Range("b2").Value & Sheets("pas_touche").Range("c2").Value & UserForm1.TextBox7.Value & Sheets("pas_touche").Range("d2").Value, TextToDisplay:="retour demande sillage"

Worksheet("VL").Cells(D_l_VL & "A" & D_l_VL & ":R").Select
    'hauteur ligne
    Selection.RowHeight = 23
    Selection.Borders.LineStyle = xlContinuous
    Selection.VerticalAlignment = xlCenter
    
Range("a1").Select


Unload UserForm1