Private Sub ListBox1_Click()
' Affiche le contact sélectionné
xnom = ListBox1.Value
xlettre = Mid(xnom, 1, 1)
For Each xrecherche In Worksheets
If xrecherche.Name = xlettre Then
xrecherche.Activate
For i = 4 To Range("B65535").End(xlUp).Row
If Cells(i, 2) = xnom Then
Application.Goto Range("B" & i)
End If
Next i
End If
Next
Unload Me
End Sub