Faire correpondre une valeur avec les données d'une combobox

Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Application.ScreenUpdating = False
C_P = TextBox5.Value
trouve_ville = False
If C_P <> "" Then
    For i = 1 To 262
        If C_P = Sheets("cp-ville").Cells(i, 2) Then
            trouve_ville = True
            TextBox6.Value = Sheets("cp-ville").Cells(i, 3)
            Exit Sub
        End If
    Next i
End If
TextBox6.Value = "ville inconnue"
Application.ScreenUpdating = True
End Sub