XL 2019 Messages box et choix d'action sur userform

Private Sub UserForm_Initialize()
Dim I As Integer
Dim TV As Variant
Set OB = Worksheets("Bdd")
Set OE = Worksheets("Entrée")
Set OS = Worksheets("Suivi des mouvements")
TV = OB.Range("A1").CurrentRegion
Me.Frame1.Visible = False 'on masque le Frame à l'ouverture du Userform
For I = 3 To UBound(TV, 1)
    If TV(I, 2) <> 0 Then
        Me.ComboBox1.AddItem TV(I, 1)
    Else
        Me.ComboBox2.AddItem TV(I, 1)
    End If
Next I
End Sub

Private Sub ComboBox1_Change()
Dim Place_Col As String
Dim LI As Integer
Dim COL As Integer
'ci-dessous la Ligne qui affiche ou masque le Frame
 Me.Frame1.Visible = IIf(Me.ComboBox1.Value = Empty Or Me.ComboBox1.ListIndex = -1, False, True)
Place_Col = ComboBox1.Value
Set Rayon = Worksheets("Entrée").Range("A1:W50").Find(Place_Col, LookIn:=xlValues)
If Rayon Is Nothing Then Exit Sub
LI = Rayon.Row: COL = Rayon.Column
For I = 1 To 8
    Me.Controls("TextBox" & I).Value = OE.Cells(LI + I, COL).Value
Next I
End Sub

Private Sub UserForm_Initialize()
Dim Cell As Range
Dim AdrC As String
Dim x As Integer
Dim Col As Byte
Dim Lgn As Integer

Set OB = Worksheets("Bdd")'On définit la feuille Source
TV = OB.Range("A1").CurrentRegion 'On récupère les Données de la plage ainsi définie

With Me.ComboBox1
             .ColumnCount = 10 'Nombre de Colonne du Combobox
             .ColumnWidths = "1;0;0;0;0;0;0;0;0"'On définit la largeur des Colonne seule la première sera visible
For Lgn = 3 To UBound(TV)  'Pour chaque lignes du tableau
  If TV(Lgn, 2) <> Empty Then 'si la colonne 2 n'est pas vide
    x = 0 'On initialise la variable à 0
            .AddItem TV(Lgn, 1) 'on ajoute la valeur dans la première Colonne du Combobox'
   For Col = 2 To UBound(TV, 2) 'pour chaque colonne de la Ligne à partir de la 2ème'
         x = x + 1 'On incrémente x
           .List(.ListCount - 1, x) = TV(Lgn, Col)'ici on charge l'ensemble des colonnes de la ligne
   Next 'autre Colonne'
          .List(.ListCount - 1, x) =Lgn 'Ligne Source dans le Tableau
  End If 'fin de Condition'
Next Lgn 'Autre Ligne du Tableau
End With
End Sub

Private Sub ComboBox1_Change()
'à chaque changement de la référence, met à jour les datas correspondantes
With Me 'Avec le Userform
     With .ComboBox1 'avec le Combobox
    Lgn_Source = .List(.ListIndex, .ColumnCount - 1)'On récupère le Numéro de la Ligne source
     End With
          .TextBox1.Value = TV(Lgn_Source, 2) 'on colle la valeur qui se trouve en Ligne Source ,Colonne 2
          .TextBox2.Value = TV(Lgn_Source, 3) 'Idem Colonne 3
          .TextBox3.Value = TV(Lgn_Source, 4) 'Idem Colonne 4
          .TextBox4.Value = TV(Lgn_Source, 5) 'Idem Colonne 5
          .TextBox5.Value = TV(Lgn_Source, 6) 'Idem Colonne 6
          .TextBox6.Value = TV(Lgn_Source, 7) 'Idem Colonne 7
          .TextBox7.Value = TV(Lgn_Source, 8) 'Idem Colonne 8
          .TextBox8.Value = TV(Lgn_Source, 9) 'Idem Colonne 9
End With
End Sub

Public TV
Public x As Integer
Public Col As Byte
Public Lgn As Integer