Chercher une valeur d'une comboBox dans une feuille Excel

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)