Re
@cp4
Maintenant passons aux "critiques"
(c'est toi qui les a commandé cf ton premier message)
Normalement ceci
If IsNull(ListBox1.Value) = True Then MsgBox "Rien à supprimer!":
peut simplement s'écrire
If IsNull(ListBox1) Then MsgBox "Rien à supprimer!":
Et sinon une autre suggestion pour ceci
.Cells(ligne, 1).Value = Me.TextBox1.Text
.Cells(ligne, 2).Value = Me.TextBox2.Value
.Cells(ligne, 3).Value = Me.TextBox3.Value
.Cells(ligne, 4).Value = Me.TextBox4.Value
.Cells(ligne, 5).Value = Me.TextBox5.Value
.Cells(ligne, 6).Value = Me.TextBox6.Value
.Cells(ligne, 7).Value = Me.ComboBox1.Value
Tu peux écrire un truc du genre
.Cells(ligne,1).Resize(,7)=Array(TextBox1,TextBox2,TextBox3,TextBox4,TextBox5,TextBox6,ComboBox1.Value)