faire un bouton imprimer

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Columns(1)) Is Nothing Then
    If Target.Value = "" Or Target.Row = 1 Then Exit Sub
    
    Dim lig As Long
    Dim Vnom As String, VPrenom As String, VDateInit As Date, VDatefin As Date
    Vnom = Target.Value
    VPrenom = Target.Offset(0, 1).Value
    VDateInit = Target.Offset(0, 2).Value
    VDatefin = Target.Offset(0, 3).Value
    With Sheets("Feuil2")
        .Range("A3") = Vnom
        .Range("A4") = VPrenom
        .Range("B3") = VDateInit
        .Range("B4") = VDatefin
        
    End With
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
End If
End Sub