Microsoft 365 Transfert sélection multiple Listbox

Private Sub CommandButton1_Click()
    Dim i As Integer, j As Byte, dl As Integer
    If ListBox2.ListCount > 0 Then
        With Sheets("recup")
            dl = .Cells(Rows.Count, 1).End(xlUp).Row + 1
            For i = 0 To ListBox2.ListCount - 1
                For j = 0 To ListBox2.ColumnCount - 1
                    .Cells(dl + i, j + 1) = ListBox2.List(i, j)
                Next j
            Next i
        End With
    End If
End Sub

Private Sub CommandButton1_Click()
    Dim Sh As Worksheet, Ligne As Integer, Plage As Range
    With Me.ListBox1
        For i = 0 To .ListCount - 1
            If .Selected(i) = True Then
                With Sheets("BD")
                  Set Plage = .Range(.Cells(i + 2, 1), .Cells(i + 2, 7))
                End With
                With Sheets("RECUP")
                  Ligne = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
                  .Cells(Ligne, 1).Resize(, 7).Value = Plage.Value
                End With
            End If
        Next i
    End With
End Sub

Private Sub CommandButton1_Click()
    Dim Ligne As Integer, Plage As Range
    With Sheets("RECUP")
      .Range("A2", .Cells(.Rows.Count, 1).End(xlUp)).Resize(, 7).Value = ""
    End With
    With Me.ListBox1
        For i = 0 To .ListCount - 1
            If .Selected(i) = True Then
                With Sheets("BD")
                  Set Plage = .Range(.Cells(i + 2, 1), .Cells(i + 2, 7))
                End With
                With Sheets("RECUP")
                  Ligne = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
                  .Cells(Ligne, 1).Resize(, 7).Value = Plage.Value
                End With
            End If
        Next i
    End With
End Sub

Private Sub CommandButton1_Click()
    Dim i As Integer, j As Byte, dl As Integer
    If ListBox2.ListCount > 0 Then
        With Sheets("recup")
            dl = .Cells(Rows.Count, 1).End(xlUp).Row    'renvoi derniere ligne non vide en colonne A
            If dl > 1 Then .Range(.Cells(2, 1), .Cells(dl, 7)).Clear   'suppression precedentes lignes

            For i = 0 To ListBox2.ListCount - 1
                For j = 0 To ListBox2.ColumnCount - 1
                    .Cells(2 + i, j + 1) = ListBox2.List(i, j)    'boucle de transfert
                Next j
                .Cells(2 + i, 7).Value = .Cells(2 + i, 7).Value * 1    'conversion format nombre
            Next i
        End With
    End If
MsgBox "Transfert terminé!", vbOKOnly + vbInformation, "TRANSFERT"
End Sub