Private Sub ComboBox1_AfterUpdate()
Dim Cel As Range
If Me.ComboBox1 = "" Then Exit Sub
Set Cel = Sheets("2").Range("E:E").Find(What:=Me.ComboBox1, After:=ActiveCell, _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=True, SearchFormat:=False)
If Cel Is Nothing Then
MsgBox "pas de correspondance"
Else
MsgBox "correspondance à l'adresse " & Cel.Address(0, 0)
End If
End Sub
Set Cel = Sheets("2").Range("E:E").Find(What:=Me.ComboBox1, _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=True, SearchFormat:=False)