Sélectionner la première cellule contenant x caractères

Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim DL As Long 'déclare la variable DL (Dernière Ligne)
Dim I As Long 'déclare la variable I (Incrément)

Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter à ton cas)
DL = O.Cells(Application.Rows.Count, "B").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne B de l'onglet O
For I = 1 To DL 'boucle sur toutes les lignes éditées I de 1 à DL
    If Len(Cells(I, "B").Value) = 17 Then 'condition : si le nombre de caractère de la cellule de la boucle est égal à 17
        O.Cells(I, "B").Select 'sélectionne la cellule
        Exit Sub 'sort de la procédure
    End If 'fin de la condition
Next I 'prochaine ligne de la boucle
End Sub