XL 2016 Affiner codage pour un meilleur fonctionnement.

    For Each Ctrl In Me.Frame1.Controls
        If TypeOf Ctrl Is MSForms.Label And Left(Ctrl.Name, 1) = "J" Then
            ReDim Preserve MesLabels(0 To i)
            Set MesLabels(i).MesLabels = Ctrl: Ctrl.Tag = i + 1
            i = i + 1
        End If
    Next Ctrl

Public Sub AgentActif()
    Dim a(), n As Long
    With Sheets("Agent")
        a = .Range("B2:D" & .[B65000].End(xlUp).Row).Value
    End With
    For i = LBound(a) To UBound(a)
        If a(i, 1) = "Actif" Then
                 n = n + 1
          ReDim Preserve Aactif(1 To n)
           Aactif(n) = a(i, 2) & " " & a(i, 3)
        End If
    Next i
End Sub

'Chargement listbox1
Sub ChargeListBox1()
‘************
      IniTbl
‘************
With UF_Planif
  With .ListBox1
           .ColumnCount = IIf(index = 1, 1, 5)
           .Width = 140
           .ColumnWidths = IIf(index = 1, "1", "0;80;30;0;0") 'mettre dernière colonne à 0
           .MultiSelect = IIf(index = 1, fmMultiSelectMulti, fmMultiSelectSingle)
           .List = IIf(index = 1, Aactif, Tbl)
           .ListIndex = -1
  End With
End With
End Sub

Private Sub Jour_Change()
    Dim L As Control
    Dim num As Variant
    Dim j As Date
    'Mise à jour des n° de jour
'code effacé ici pour l'exemple
    'Mise à jour de la semaine
    For Each L In Me.Controls    'on passe en revue l'ensemble des controls
        num = Val(L.Tag)
       [COLOR=rgb(184, 49, 47)] If num = 1 And L.ForeColor = &H80000011 Then    'le jour est dans le mois[/COLOR]
            sem1.Caption = NOSEM(CDate(Day(Jour.Value) & "/" & Month(Jour.Value) & "/" & Year(Jour.Value)))
        ElseIf num = 1 Then
            sem1.Caption = NOSEM(CDate(Day(Jour.Value) & "/" & Month(Jour.Value) - 1 & "/" & Year(Jour.Value)))
        End If
    Next
End Sub

Private Sub ListBox2_Click()    'sigle

    If index = 2 Then
        Me.ListBox1.List(Me.ListBox1.ListIndex, 2) = Me.ListBox2
        If Left(Me.ListBox2, 1) = "G" Then
            Me.ListBox1.List(Me.ListBox1.ListIndex, 3) = Mid(Me.ListBox2, 2)
        Else
            Me.ListBox1.List(Me.ListBox1.ListIndex, 3) = ""
        End If
    End If
End Sub

With Sheets("BDD")
                L = .Range("A" & Rows.Count).End(xlUp).Row + 1    'Pour placer le nouvel enregistrement à la première ligne de tableau non vide
                For i = 0 To ListBox1.ListCount - 1
                    If ListBox1.Selected(i) Then
                        .Range("A" & L).Value = MaDate
                        .Range("A" & L).NumberFormat = "dd-mm-yy"
                        .Range("B" & L).Value = ListBox1.List(i)
                        .Range("C" & L).Value = ListBox2
                        If Left(Me.ListBox2, 1) = "G" Then .Range("D" & L).Value = Val(Mid(Me.ListBox2, 2))
                        L = L + 1
                        ListBox1.RemoveItem (i) '<----------- ICI supprime la ligne dans ListBox 1
                    End If
                Next i
            End With

If ListBox1.Selected(i) Then

Private Sub OK_Click() 'Il y avait
Public Sub OK_Click()    ' j'ai mis

    End If 
            UF_Planif.OK_Click '<-------------- ICI on Simule le Click sur Bouton " OK  "      
    IniObjet
End Sub