Private Sub CommandButton_MAJ_Click()
If ListBox1.ListIndex = -1 Then Exit Sub
With Feuil1
lig = ListBox1.ListIndex + 2
.Cells(lig, [COLOR=#ff0000][Tableau2[NOM COMPTE][/COLOR]]) = TextBox1
If TextBox2 = "" Then
.Cells(lig, [COLOR=#ff0000][Tableau2[MONTANT COMPTE][/COLOR]]) = ""
Else
.Cells(lig, [COLOR=#ff0000][Tableau2[MONTANT COMPTE]][/COLOR]) = CDbl(TextBox2)
End If
.Cells(lig, [COLOR=#ff0000][Tableau2[TAUX COMPTE]][/COLOR]) = CDbl(Replace(TextBox3, "%", "")) / 100
End With
If ListBox1 <> TextBox1 Then _
ListBox1.List = Feuil1.Range("A2:A" & Feuil1.[A65000].End(3).Row).Value
End Sub