remplace toutes les macros de ton formulaire par celles-ci et ça ira. Et un conseil, donne des noms caractéristiques à tes contrôles, sinon tu t'y perdras vite.
Option Explicit
'Ti
Dim Ws As Worksheet, Plage As Range
Dim ListeCoul, ListeNotes
Private Sub CommandButton1_Click()
With Plage
.Offset(0, 1) = ListeNotes
.Offset(0, 2) = ListeCoul
End With
Unload Me
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub Liste_Click()
Dim Index As Long
Index = Liste.ListIndex
If Index >= 0 Then
TextBox1.Text = ListeNotes(Index + 1, 1)
TextBox2.Text = ListeCoul(Index + 1, 1)
End If
End Sub
Private Sub TextBox1_Change()
Dim Index As Long
Index = Liste.ListIndex
If Index >= 0 Then ListeNotes(Index + 1, 1) = TextBox1.Text
End Sub
Private Sub TextBox2_Change()
Dim Index As Long
Index = Liste.ListIndex
If Index >= 0 Then ListeCoul(Index + 1, 1) = TextBox2.Text
End Sub
Private Sub UserForm_initialize()
Set Ws = ThisWorkbook.Sheets("feuil1")
With Ws
Set Plage = .Range("A2", .Range("A2").End(xlDown))
ListeNotes = Plage.Offset(0, 1).Value
ListeCoul = Plage.Offset(0, 2).Value
Liste.List = Plage.Value
Liste.ListIndex = 0
End With
End Sub