Impression de plusieurs feuilles de donnée venant d'une sélection

Bonsoir, J'ai besoin de votre aide car je n'arrive pas à faire ce que j'aimerais

Si je sélectionne une ligne cela fonctionne parfaitement.(Photo avant code) Moi je souhaiterais quant cliquant sur un bouton je puisse imprimer ma sélection ( Voir photo au fond).

Je ne trouve pas la solution, je débute en VBA donc pas facile .

Merci pour votre aide

.

voila mon code.

Private Sub CommandButton11_Click()
    'Dim VarNbImpession As String 'Nombre de copies
    Dim LgImp As Long

    LgImp = ActiveCell.Row 'N° de ligne

    'Vérifi que la ligne selectioner soit bien dans la plage du tableau
    If LgImp < 7 Then
    MsgBox "Selection invalide"
    Exit Sub
    End If

            Sheets("PREV_IMP").Visible = True

            Application.ScreenUpdating = False

            'Remplissage des cellules de la page Etiquette (Feuil19) en fontion du N° de ligne selectionner
            Feuil19.Cells(1, 3).Value = Feuil18.Cells(LgImp, 1).Value     ' Code Interne (C1)
            Feuil19.Cells(3, 3).Value = Feuil18.Cells(LgImp, 2).Value    'Stockage (C4)Demandeur C3
            Feuil19.Cells(5, 2).Value = Feuil18.Cells(LgImp, 3).Value    'N° LBG  (D1)lieu inter B5
            Feuil19.Cells(7, 3).Value = Feuil18.Cells(LgImp, 4).Value     ' Descriptif (B2) Intervenant C7
            Feuil19.Cells(8, 3).Value = Feuil18.Cells(LgImp, 17).Value       'dernier mod (C8)
            Feuil19.Cells(11, 1).Value = Feuil18.Cells(LgImp, 5).Value    ' N° fournisseur (D4) tache A11
            Feuil19.Cells(18, 2).Value = Feuil18.Cells(LgImp, 18).Value     ' marche a suisvre (B18)
            Feuil19.Cells(21, 2).Value = Feuil18.Cells(LgImp, 6).Value     ' En production (B21)
            Feuil19.Cells(23, 2).Value = Feuil18.Cells(LgImp, 13).Value     ' Compteur heures (B24)
            Feuil19.Cells(21, 6).Value = Feuil18.Cells(LgImp, 7).Value     ' Temps(D21)
            Feuil19.Cells(24, 6).Value = Feuil18.Cells(LgImp, 8).Value     ' Fréquence (D24)
            Feuil19.Cells(1, 6).Value = Feuil18.Cells(LgImp, 12).Value     ' Etat (F1)
            Feuil19.Cells(3, 6).Value = Feuil18.Cells(LgImp, 9).Value     ' der réalisation (F3)
            Feuil19.Cells(7, 6).Value = Feuil18.Cells(LgImp, 10).Value     ' Planidfier (F5)
            Feuil19.Cells(8, 6).Value = Feuil18.Cells(LgImp, 11).Value     ' semaine (F8)
            Feuil19.Cells(9, 3).Value = Feuil18.Cells(LgImp, 15).Value     ' Thermographie Oui/Non(C9)
            Feuil19.Cells(9, 6).Value = Feuil18.Cells(LgImp, 14).Value     ' Date thermographie (F9)

            'Lance l'impression de la feuil9 suivant zone d'impression prédéfinit en feuil19
            If Application.Dialogs(xlDialogPrinterSetup).Show = True Then Feuil19.PrintOut ', , VarNbImpession

            'Vider les valeurs des cellules
            Feuil19.Cells(1, 3).Value = ""
            Feuil19.Cells(4, 3).Value = ""
            Feuil19.Cells(1, 4).Value = ""
            Feuil19.Cells(2, 2).Value = ""
            Feuil19.Cells(3, 3).Value = ""
            Feuil19.Cells(1, 3).Value = ""
            Feuil19.Cells(3, 3).Value = ""
            Feuil19.Cells(5, 2).Value = ""
            Feuil19.Cells(7, 3).Value = ""
            Feuil19.Cells(8, 3).Value = ""
            Feuil19.Cells(11, 1).Value = ""
            Feuil19.Cells(18, 2).Value = ""
            Feuil19.Cells(21, 2).Value = ""
            Feuil19.Cells(23, 2).Value = ""
            Feuil19.Cells(21, 6).Value = ""
            Feuil19.Cells(24, 6).Value = ""
            Feuil19.Cells(1, 6).Value = ""
            Feuil19.Cells(3, 6).Value = ""
            Feuil19.Cells(7, 6).Value = ""
            Feuil19.Cells(8, 6).Value = ""
            Feuil19.Cells(9, 3).Value = ""
            Feuil19.Cells(9, 6).Value = ""

           'MsgBox "Impression réussi"
           'Application.ScreenUpdating = True
            Exit Sub

          '  End If

Application.ScreenUpdating = True

End Sub