Private Sub CommandButton1_Click()
Dim r As Range
If Me.ComboBox3.Value <> "" Then Set r = Sheets("Feuil3").Columns(1).Find(Me.ComboBox3.Value, , xlValues, xlWhole)
If Me.ComboBox3.Value = "" And Me.ComboBox2.Value <> "" Then Set r = Sheets("Feuil3").Columns(1).Find(Me.ComboBox2.Value, , xlValues, xlWhole)
If Me.ComboBox3.Value = "" And Me.ComboBox2.Value = "" Then Set r = Sheets("Feuil3").Columns(1).Find(Me.ComboBox1.Value, , xlValues, xlWhole)
Sheets("Feuil3").Select
r.Select
Unload Me
End Sub