listview et clic

Private Sub CommandButton1_Click()
Dim rngR As Range, c As Range, Adresse As String
Dim txtTotal As Integer
If TextBox1 = "" Then Exit Sub
ListView3.ListItems.Clear

Set rngR = Sheets("Base").Range("A2:L" & Range("A65000").End(xlUp).Row)
Set c = rngR.Find(TextBox1, lookat:=xlPart)
If Not c Is Nothing Then
    Adresse = c.Address
    Do
        With ListView3
            .ListItems.Add , , Sheets("Base").Cells(c.Row, 1).Value
            .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Base").Cells(c.Row, 2)
            .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Base").Cells(c.Row, 3)
            .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Base").Cells(c.Row, 7)
            .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Base").Cells(c.Row, 8)
        End With
        Set c = rngR.FindNext(c)
   [COLOR="Red"]'creation public lignerecherche as long dans module1
   lignerecherche = c.Row - 1
  MsgBox lignerecherche[/COLOR]
    Loop While Not c Is Nothing And c.Address <> Adresse
End If
txtTotal = ListView3.ListItems.Count
If txtTotal = 0 Then MsgBox "Rien trouvé !"

End Sub

Private Sub AlimenteTb()
Dim Lgn As Range, Bcle&, c As Range, Adresse$
  [COLOR="Red"]If TextBox1 <> "" Then
  Set Lgn = PlageBase(lignerecherche, 1)
  Else:
  Set Lgn = PlageBase(IndexBase, 1)
  End If[/COLOR]
  For Bcle = 1 To ColTb.Count
    ColTb(Bcle).Text = Lgn(1, Bcle).Value
  Next Bcle
  LabIndex = "Fiche " & IndexBase & " sur " & PlageBase.Rows.Count
  ListView1.ListItems.Clear
  With Sheets("evenement")
    Set c = .Columns(1).Find(ColTb(3), lookat:=xlWhole)
        If Not c Is Nothing Then
            Adresse = c.Address
            Do
                With ListView1
                    .ListItems.Add , , c
                    .ListItems(.ListItems.Count).ListSubItems.Add , , c.Offset(, 1)
                    .ListItems(.ListItems.Count).ListSubItems.Add , , c.Offset(, 2)
                End With
                Set c = .Columns(1).FindNext(c)
            Loop While Not c Is Nothing And c.Address <> Adresse
        End If
    End With
ListView2.ListItems.Clear
  With Sheets("feuil2")
    Set c = .Columns(1).Find(ColTb(3), lookat:=xlWhole)
        If Not c Is Nothing Then
            Adresse = c.Address
            Do
                With ListView2
                    .ListItems.Add , , c
                    .ListItems(.ListItems.Count).ListSubItems.Add , , c.Offset(, 1)
                    .ListItems(.ListItems.Count).ListSubItems.Add , , Format(c.Offset(, 2), "hh:mm")
                    .ListItems(.ListItems.Count).ListSubItems.Add , , Format(c.Offset(, 3), "hh:mm")
                    .ListItems(.ListItems.Count).ListSubItems.Add , , Format(c.Offset(, 4), "hh:mm")
                End With
                Set c = .Columns(1).FindNext(c)
            Loop While Not c Is Nothing And c.Address <> Adresse
        End If
    End With
  
End Sub

Private Sub ListView3_Click()
Dim SelItemTxt As String
Dim rngR As Range, c As Range

'SpinBBase = Me.ListView3.SelectedItem.Index
SelItemTxt = Me.ListView3.SelectedItem.SubItems(2)

Set rngR = Sheets("Base").Range("A2:L" & Range("A65000").End(xlUp).Row)
Set c = rngR.Find(SelItemTxt, lookat:=xlPart)
IndexBase = c.Row - 1
SpinBBase = IndexBase
AlimenteTb
End Sub

Private Sub SpinBBase_SpinDown()
  
  Dim rngR As Range, c As Range
  Dim SpinIndex As Byte
  Dim SelItemTxt As String
  If Me.ListView3.ListItems.Count = 0 Then Exit Sub

  SpinBBase.Min = 1
  SpinIndex = SpinBBase
  SelItemTxt = Me.ListView3.ListItems(SpinIndex).SubItems(2)
Set rngR = Sheets("Base").Range("A2:L" & Range("A65000").End(xlUp).Row)
Set c = rngR.Find(SelItemTxt, lookat:=xlPart)

IndexBase = c.Row - 1
   
  AlimenteTb
End Sub

Private Sub SpinBBase_SpinUp()
   
 Dim rngR As Range, c As Range
 Dim SpinIndex As Byte
 Dim SelItemTxt As String
 
 If Me.ListView3.ListItems.Count = 0 Then Exit Sub
  
  SpinBBase.Max = Me.ListView3.ListItems.Count
  SpinIndex = SpinBBase
  SelItemTxt = Me.ListView3.ListItems(SpinIndex).SubItems(2)

Set rngR = Sheets("Base").Range("A2:L" & Range("A65000").End(xlUp).Row)
Set c = rngR.Find(SelItemTxt, lookat:=xlPart)

IndexBase = c.Row - 1
  
  AlimenteTb
End Sub