XL 2013 Rechercher la ligne commençant par la lettre ?

Private Sub ComboBox1_Change()
For i = 2 To Range("B65535").End(xlUp).Row
If Left(Cells(i, 2), 1) = ComboBox1.Text Then
MsgBox ("Résultat trouvé: " & vbLf & Cells(i, 2) & vbLf & "en ligne " & i)
Exit For
End If
Next i
End Sub

Private Sub ComboBox1_Change()
test = 0
For i = 2 To Range("B65535").End(xlUp).Row
If Left(Cells(i, 2), 1) = ComboBox1.Text Then
MsgBox ("Résultat trouvé: " & vbLf & Cells(i, 2) & vbLf & "en ligne " & i)
test = 1
Exit For
End If
Next i
If test = 0 Then MsgBox ("AUCUN RESULTAT")
End Sub