Bouton modifier dans un formulaire VBA_Excel

Option Explicit
Private Sub CommandButton1_Click()
If Me.Délai = "" Or Me.Commentaire < 0 Or Me.Commentaire = "" Or Me.Délai < 0 Then
MsgBox ("Veillez pointer la ligne de commande à modifier!")
Else

Sheets("Synthese").ListObjects(1).DataBodyRange(Me.Rowid, 10) = Me.Délai
Sheets("Synthese").ListObjects(1).DataBodyRange(Me.Rowid, 11) = Me.Commentaire
End If
End Sub
Private Sub CommandButton39_Click()
ThisWorkbook.Save
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim ligne As Integer
On Error Resume Next
ligne = Me.ListBox1.ListIndex
Me.Qté_cdée = Me.ListBox1.Column(8, ligne)
Me.a_livrer = Me.ListBox1.Column(9, ligne)
Me.Délai = Me.ListBox1.Column(10, ligne)
Me.Besoin = Me.ListBox1.Column(14, ligne)
Me.Sto_phy = Me.ListBox1.Column(15, ligne)
Me.Sto_cde = Me.ListBox1.Column(16, ligne)
Me.Sto_rés = Me.ListBox1.Column(17, ligne)
Me.Sto_théo = Me.ListBox1.Column(18, ligne)
Me.Livr = Me.ListBox1.Column(19, ligne)
Me.Livr = CDate(Me.Livr)
Me.Qte_plan = Me.ListBox1.Column(21, ligne)
Me.Qte_réal = Me.ListBox1.Column(22, ligne)
Me.Ope = Me.ListBox1.Column(23, ligne)
Me.Commentaire = Me.ListBox1.Column(11, ligne)
Me.Rowid = Me.ListBox1.Column(0, ligne)
End Sub

Private Sub search_loop_Change()

ListBox1.ColumnCount = 30
ListBox1.RowSource = "A2: AB9847"
Me.Label1.Caption = Me.ListBox1.ListCount & " Ligne(s)"
End Sub