Private Sub TextBox7_Change() 'la je charge bien la ligne n° 1
Dim C As Range
Dim Adresse As String
ListBox2.Clear
Set C = Rows(1).Find(TextBox7)
If Not C Is Nothing Then
Adresse = C.Address
Do
If UCase(TextBox7) = UCase(Left(C, Len(TextBox7))) Then
With ListBox2
.AddItem C
.List(.ListCount - 1, 1) = C.Column
End With
End If
Set C = Rows(1).FindNext(C)
Loop While Not C Is Nothing And C.Address <> Adresse
End If
End Sub
Private Sub ListBox2_Click()
Dim Col As Byte
Col = Val(ListBox2.List(ListBox2.ListIndex, 1))
ActiveWindow.ScrollColumn = Col
Cells(1, Col).Select
Unload Me
End Sub