XL 2016 Gestion compte courant

Pour Validation :
Private Sub CommandButton4_Click()
Dim DL%, Montant
    With Sheets("Comptes 2024")
        DL = 1 + .[A1000].End(xlUp).Row
        .Cells(DL, "B") = Year(Now)
        .Cells(DL, "A") = Month(Now)
        .Cells(DL, "C") = Now
        .Cells(DL, "D") = TextBox3
        .Cells(DL, "E") = ComboBox1
        Montant = 1 * TextBox4.Value
        If Montant > 0 Then
            .Cells(DL, "F") = Montant
        Else
            .Cells(DL, "G") = -Montant
        End If
    End With
End Sub

    With Sheets("Parametres")
        DL = .[A1000].End(xlUp).Row
        ModePaiement = .Range(.Cells(3, "A"), .Cells(DL, "A")).Value
    End With
    With Userform1
        .ComboBox1.List = ModePaiement
        .ComboBox1.ListIndex = 1
...
...