Copie automatique de données cochées

Bonjour chers ami, je suis nouveau en programmation, je souhaite avoir le code visuel basic qui me permettra de transférer automatiquement des données coché(A 2;A1000) d'un tableau(A2:G1000) d'une feuille intitulé "BASE DE DONNÉES" vers une autre intitulé "DQE" de la (B5;H1000) . la condition est que ds la feuille 1 il faudrait que la cas à coché soit activé,qu'il n'y ait pas de ligne vide lors des transferts de données. Nettoyer la feuille DQE (B5;H1000) avant d'effectuer la copie.

Je souhaiterais que la mise à jour soit automatique en étant sur la feuille DQE sans avoir besoin de cliquer sur un bouton.

Bonjour,

Une piste mais pour l'automatisme, à toi de dire comment tu vois ça :

Sub Transfert()

    Dim Plage As Range
    Dim S As Shape
    Dim Tbl()
    Dim I As Long
    Dim J As Long

    With Worksheets("BASE DE DONNÉES")

        Set S = .Shapes("Case à cocher 1") 'si issue de contrôles "Formulaire", adapter le nom !
        If S.ControlFormat.Value <> 1 Then Exit Sub

        Set Plage = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp))

    End With

    For I = 1 To Plage.Count
        If Plage(I).Value <> "" Then J = J + 1: ReDim Preserve Tbl(1 To J): Tbl(J) = Plage(I)
    Next I

    With Worksheets("DQE")

        .Columns(2).Cells.Clear
        For I = 1 To UBound(Tbl): .Cells(I + 4, 2).Value = Tbl(I): Next I

    End With

End Sub