Private Sub ComboBox1_Change()
With Feuil1.Range("a2:a23")
Set cel = .Find(ComboBox1, , xlValues, xlWhole)
If Not cel Is Nothing Then
Me.Label1.Caption = cel.Offset(0, 1) & " se trouve à la " & _
cel.Offset(0, 0).Row & "ème ligne"
End If
End With
End Sub