collection fausse boite de dialogue (Patricktoulon) episode 1 Le calendrier Modal 5.4

Private Sub UserForm_Activate()
    Dim I&, TRT$
    
    If Not lance Then
        Unload Me
        MsgBox " c'est une boite de dialogue plus un userform" & vbCrLf & "il se lance uniquememt par une de ses deux fonctions " & vbCrLf & """ShowX"" ou   ""ShowTopLeft"""
        Exit Sub
    End If
 
    If Me.top = 0 Then
        valeur = valeur
        Me.Hide
    End If
      If Not Obj Is Nothing Then
        Select Case TypeName(Obj)
            Case "Label"
                OldValue = Obj.Caption
            Case "TextBox", "Range"
                OldValue = Obj.Value
            Case "CommandButton"
                OldValue = Obj.Caption
            Case "Shape"
                OldValue = Obj.TextFrame.Characters.Text
        End Select
    Else
        '
    End If
    Select Case region
        Case 0
            TRT = " US - Calendar"
            ldate = "Today is" & vbCrLf & Format(Date, "mm/dd/yyyy")
        Case 1
            TRT = "Calendrier  - Français"
            ldate = "Aujourd'hui" & vbCrLf & Format(Date, "dd/mm/yyyy")
        Case 11
            TRT = "amzeriadur g.  - Breton"
            ldate = "hiziv" & vbCrLf & Format(Date, "dd/mm/yyyy")
        Case 2
            TRT = "CANADIAN - Calendrier"
            ldate = "Aujourd'hui" & vbCrLf & Format(Date, "yyyy-mm-dd")
        Case 12
            TRT = "calendario - italiano"
            ldate = "Oggi" & vbCrLf & Format(Date, "dd/mm/yyyy")
        Case 22
            TRT = "CANADA(QUEBEC) - Calendrier"
            ldate = "Aujourd'hui" & vbCrLf & Format(Date, "yyyy-mm-dd")
        Case 13
            TRT = "Suisse - Calendrier"
            ldate = "Aujourd'hui" & vbCrLf & Format(Date, "dd/mm/yyyy")
        Case 14
            TRT = "calendario españa"
            ldate = "  Hoy  " & vbCrLf & Format(Date, "dd/mm/yyyy")
        Case 15
            TRT = "calendário português"
            ldate = "  Hoje  " & vbCrLf & Format(Date, "dd/mm/yyyy")
        Case 33
            TRT = "GB - Calendar"
            ldate = "Todays is" & vbCrLf & Format(Date, "dd/mm/yyyy")
        Case 35
            TRT = "Deutscher Kalender"
            ldate = "Heute" & vbCrLf & Format(Date, "dd/mm/yyyy")
        Case 44
            TRT = "Belgique - Calendrier"
            ldate = "Aujourd'hui" & vbCrLf & Format(Date, "yyyy-mm-dd")
    End Select
  config
    Me.Caption = TRT
    'mappage pour evenement unique (42 boutons) (intra userform sans module classe)
    For I = 1 To 42
        Set clavier(I).bout = Me.Controls("j" & I)
    Next
    'Me.Repaint
End Sub