Additionner et Imprimer les données de la ListBox

Private Sub CmdPrélèvementImp_Click()
Dim Control As Object
Dim Mois As Boolean
Dim i As Byte, j As Byte, k As Byte
Dim ligne As Byte, lignelistbox As Byte
Dim derligne As Integer
Dim present As Boolean
Dim presentnumero As Boolean
Dim tablosplit
Mois = False

For Each Control In Données.FrameSélectMois.Controls
 If Control.Value = True Then Mois = True: Exit For
  Next
   If Not Mois Then
    MsgBox "Sélectionnez un mois !", vbExclamation, G & " / Opération impossible"
Exit Sub
End If

If ComboDateImp.Value = "" Then
 MsgBox "Select. Mois-Année.", vbExclamation, G & " / Opération impossible"
  ComboDateImp.SetFocus
Exit Sub
End If
'
''Code pour Imp ?
'O3.Range("A1") = ComboDateImp.Value
'Unload Données

O3.Range("a3:d10000").ClearContents

For i = 0 To ListBox1.ListCount - 1
    present = False
    For j = 3 To O3.Range("a65536").End(xlUp).Row
        If O3.Cells(j, 1) & CStr(O3.Cells(j, 3)) = ListBox1.List(i, 0) & ListBox1.List(i, 2) Then
            ligne = j: lignelistbox = i
            present = True
        End If
    Next j
    
    If present = True Then
        presentnumero = False
        O3.Cells(ligne, 4) = O3.Cells(ligne, 4) + CDbl(ListBox1.List(lignelistbox, 3))
        tablosplit = Split(O3.Cells(ligne, 2), "_")
        For k = 0 To UBound(tablosplit)
            If tablosplit(k) = ListBox1.List(lignelistbox, 1) Then
                presentnumero = True
            End If
        Next k
        
        If Not presentnumero Then
            O3.Cells(ligne, 2) = O3.Cells(ligne, 2) & "_" & ListBox1.List(lignelistbox, 1)
        End If
    Else
        derligne = O3.Range("a65536").End(xlUp).Row + 1
        O3.Cells(derligne, 1) = ListBox1.List(i, 0)
        O3.Cells(derligne, 2) = ListBox1.List(i, 1)
        O3.Cells(derligne, 3) = CDate(ListBox1.List(i, 2))
        O3.Cells(derligne, 4) = CDbl(ListBox1.List(i, 3))
    End If
    
Next i
        
End Sub

Private Sub CmdAnnexeFcImp_Click()
Dim i As Integer

TextBox31.Enabled = True
If ComboAnnexeFc.Value = "" Then
 MsgBox "Select. Numéro Facture.", vbExclamation, G & " / Opération impossible"
  ComboAnnexeFc.SetFocus
Exit Sub
 End If

If TextBox31.Value = "" Then
 MsgBox "Saisissez la date d'édition .", vbExclamation, G & " / Opération impossible"
  TextBox31.SetFocus
Exit Sub
 End If
    
If Not IsDate(TextBox31.Value) = True Then
 MsgBox "Format date édition non valide.", vbExclamation, G & " / Opération impossible"
  TextBox31.Value = ""
   TextBox31.SetFocus
Exit Sub
 End If

'Code pour Imp ?
O4.Range("a16:h36").ClearContents

O4.Range("C8") = ComboAnnexeFc.Value
O4.Range("C10") = CDate(TextBox31.Value)
O4.Range("c9") = ListBox3.List(0, 0)

'détail
For i = 0 To ListBox3.ListCount - 1
    O4.Cells(i + 16, 1) = ListBox3.List(i, 2)
    O4.Cells(i + 16, 3) = ListBox3.List(i, 3)
    O4.Cells(i + 16, 4) = ListBox3.List(i, 4)
    O4.Cells(i + 16, 7) = CDate(ListBox3.List(i, 5))
    O4.Cells(i + 16, 8) = CDate(ListBox3.List(i, 6))
Next i

O4.Range("a41:c52").ClearContents

'prélevement
For i = 0 To 11
    O4.Cells(i + 41, 1) = CDate(DateAdd("m", i, ListBox3.List(0, 7)))
    O4.Cells(i + 41, 3) = CDbl(Me.TBoxSommeP5)
Next i

'O4.PrintOut Copies:=1, Collate:=True
Unload Données
End Sub