Probleme code lisview double click

Dim nulist As Long
Private Sub CommandButton1_Click()
If Not IsNumeric(Me.TextBox1) Then
Call MsgBox("Vous devez inscrire une valeur numérique", vbCritical, Application.Name)

Exit Sub
End If
With ListView2
          .ListItems.Add , , ListView1.ListItems(nulist).Text
          .ListItems(.ListItems.Count).ListSubItems.Add , , ListView1.ListItems(nulist).ListSubItems(1).Text
          .ListItems(.ListItems.Count).ListSubItems.Add , , CCur(ListView1.ListItems(nulist).ListSubItems(2).Text) + CCur(Me.TextBox1)
 Me.TextBox1.Visible = false
Me.CommandButton1.Visible = false
   Me.TextBox1 = ""
End With
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub


Private Sub Listview1_DblClick()
Me.TextBox1.Visible = True
Me.CommandButton1.Visible = True
nulist = ListView1.SelectedItem.Index
End Sub
Private Sub TextBox1_Change()
Me.TextBox1.Value = Replace(Me.TextBox1, ".", ",")
End Sub

Private Sub UserForm_Initialize()
Sheets("Feuil1").Select
With ListView1
    With .ColumnHeaders
       .Clear
       .Add , , "Produit", 40
       .Add , , "Nb de Boite Restante", 40, 2
       .Add , , "Etat", 40, 2

    End With
 .View = lvwReport
 .FullRowSelect = False
 '.Gridlines = True
        For i = 2 To Feuil1.Range("A65536").End(xlUp).Row
          .ListItems.Add , , Feuil1.Cells(i, 1)
          .ListItems(.ListItems.Count).ListSubItems.Add , , Feuil1.Cells(i, 2)
          .ListItems(.ListItems.Count).ListSubItems.Add , , Feuil1.Cells(i, 3)
          Next
          End With

With ListView2
    With .ColumnHeaders
       .Clear
       .Add , , "Produit", 40
       .Add , , "Nb de Boite Restante", 40, 2
       .Add , , "Etat", 40, 2

    End With
 .View = lvwReport
 .FullRowSelect = False
 End With
End Sub

 With ListView2
    .ListItems.Add , , ListView2.ListItems(Li - 1)
    .ListItems(.ListItems.Count).ListSubItems.Remove , , Cells(Li, 2)
    .ListItems(.ListItems.Count).ListSubItems.Remove , , Cells(Li, 3) + TextBox1.Value
  End With
  TextBox1 = ""
  TextBox1.Enabled = False

Dim Lis As Long
Private Sub CommandButton3_Click() ' bouton supprimer
If Lis <> 0 Then
    ListView1.ListItems.Remove Lis
    Lis = 0
End If
End Sub

Private Sub ListView1_DblClick()' selection d'une ligne avec un double click
  Lis = ListView1.SelectedItem.Index
End Sub

Private Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem)
  Dim L As Long
  Li = Item.Index
  With ListView1
    For L = 1 To .ListItems.Count
      .ListItems.Item(L).Checked = False
    Next
    .ListItems.Item(Li).Checked = True
    [B].ListItems(Li).[COLOR="Red"]ForeColor = &HFF&[/COLOR]
    .ListItems(Li).Bold = True
    For col = 1 To 2
      .ListItems(Li).ListSubItems(col).ForeColor = &HFF&
      .ListItems(Li).ListSubItems(col).Bold = True
    Next[/B]
    Li = Li + 1
    TextBox1.SetFocus
  End With
End Sub