Problème de SetFocus dans un TextBox

Bonjour le forum,

Je n'ai que des problèmes, pas de solution. Peut-être parce que je les expose mal 😀

J'essaye de faire prendre le focus à un TextBox (Txt_No dans le code). Je n'arrive pas à voir mon erreur et pourtant il y en a une car je ne vois pas le point d'insertion, ni dans Txt_No, ni ailleurs 😕

Private Sub InitArchives()
Dim i As Integer
Dim j As Integer
Dim tablo As Variant
With Me.Txt_No
.Visible = True
.Value = ""
.SetFocus
End With
Me.Lsv_Archives.Visible = True
Me.Lbl_Recherche.Visible = True
With Me.ComboBox1
.Clear
.AddItem "Par N° SIREN"
.AddItem "Par N° Client"
.ListIndex = 0
.Visible = True
End With
Me.Cmb_LancerRecherche.Visible = True
Me.Lbl_NbCltsArchives.Visible = True
Me.Txt_NbCltsArchives.Visible = True
Me.Cmb_SelectArchives.Visible = True
Me.Lbl_NbCltsTrouves.Visible = False
Me.Txt_NbCltsTrouves.Visible = False
Me.Lbl_Impossible.Visible = False
Me.Cmb_RetourArchives.Visible = False
With ThisWorkbook.Worksheets("Archives")
tablo = Sheets("Archives").Range("A2😀" & .Range("a65536").End(xlUp).Row)
End With
With Me.Lsv_Archives
With .ColumnHeaders
.Clear
.Add , , "N° du Client", 70
.Add , , "N° Ent.", 50, lvwColumnLeft
.Add , , "N° SIREN", 70, lvwColumnCenter
.Add , , "Nom du Client", 200, lvwColumnLeft
End With
.CheckBoxes = True
.FullRowSelect = True
.Gridlines = True
.LabelEdit = 1
.ListItems.Clear
.MultiSelect = True
.View = lvwReport
End With
With Me.Lsv_Archives
.ListItems.Clear
For i = 1 To UBound(tablo, 1)
.ListItems.Add , , tablo(i, 1)
For j = 2 To UBound(tablo, 2)
If j = 3 Then
.ListItems(i).ListSubItems.Add , , Format(tablo(i, j), "### ### ###")
Else
.ListItems(i).ListSubItems.Add , , tablo(i, j)
End If
Next j
Next i
End With
With Me.Txt_NbCltsArchives
Me.Txt_NbCltsArchives = Lsv_Archives.ListItems.Count - 0
Me.Txt_NbCltsArchives = Format(Me.Txt_NbCltsArchives, "### ##0")
End With
Set Lsv_Archives.SelectedItem = Nothing
If Me.Cmb_RetourArchives.Visible = True Then Me.Cmb_RetourArchives.SetFocus
If Me.Txt_No.Visible = True Then Me.Txt_No.SetFocus
End Sub

J'avoue avoir pensé changer mes noms des contrôles pour des génériques mais j'ai eu la flemme (j'espère ne pas me faire e.......r).

Bien entendu, ça se passe dans un Usf avec ListView (Lsv_Archives) 🙄