Userform qui disparaît sur un PC mais pas un autre

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If MsgBox("CloseMode = " & CloseMode & vbLf & "Est-ce normal ?", vbYesNo, "Fermeture " & Me.Name) = vbYes Then Exit Sub
Cancel = True
End Sub

Sub New Vision()
'En dessous de Option Explicit, déclare ces variables qui seront globales.
Dim varroom As String, cel As Range, i As Long, k As Long  'au lieu de les répéter 10 fois.
'Fait de même pour les autres variables

If Label25.Caption = "PARAMETRAGE" Then
Chemin = "D:\partage\MJ Tracking\Sons\Paramétrage\"
ElseIf Label25.Caption = "TEASE1" Then
Chemin = "D:\partage\MJ Tracking\Sons\Tease1\"
ElseIf Label25.Caption = "TEASE2" Then
Chemin = "D:\partage\MJ Tracking\Sons\Tease2\"
ElseIf Label25.Caption = "TEASE3" Then
Chemin = "D:\partage\MJ Tracking\Sons\Tease3\"
ElseIf Label25.Caption = "TEASE4" Then
Chemin = "D:\partage\MJ Tracking\Sons\Tease4\"
End If

'Là aussi, tu as ceci à plusieures reprises, éfface ce qui est en trop et met-le dans Userform_Activate() qu'une seule fois.


'Dans le Module Standard, tu inscrit ces 3 chemins comme ceci

Public Const ChemSons As String = "D:\partage\MJ Tracking\Sons\"
Public Const ChemShut As string =  "D:\partage\MJ Tracking\Sons\ShutDown\"
Public Const ChemTrack  As String = "D:\partage\MJ Tracking\PNG\"

fichier1 = ChemTrack & "objet.jpg"
fichier2 = ChemSons & "Paramétrage\"
fichier3 =  ChemShut & "ShutDown\"

' Comme te la fait remarquer Staple1600, tu as X fois commandbutton. Modifie comme ceci
For i = 6 to 28
Controls("CommandButton" & i).BackStyle = fmBackStyleTransparent
Next i

CommandButton11.Caption = "Envier"    ' à échanger avec le 9 et ensuite

For i = 10 to 20
Controls("CommandButton" & i).Caption = ""
Next i

Sheets(varroom).Select - Range("A2").Select -While ActiveCell.Value <> "" -ActiveCell.Offset(1, 0).Select -Wend    'à changer par

Set cel = Sheets(varroom).range("a2")
If cel <> "" Then cel.Offset(1, 0).Select

ActiveWorkbook.Worksheets(varroom).sort.SortFields.Clear, à changer par
Sheets(varroom).sort.SortFields.Clear

Range("CK100000").Select
Cells.Find(What:=Range("CJ2").Value, After:=ActiveCell, à changer par

Set cel = Range("CK100000")
Cells.Find(What:=Range("CJ2").Value, After:=cel,

' Tu as 3 fois For each sh, pourquoi faire?

For Each sh In ActiveSheet.Shapes
      For k = 5 to 7
            If sh.TopLeftCell.Address = Range("A" & k).Address Then sh.Delete
      Next k
Next sh
End Sub

Option Explicit
Dim WsCube As Worksheet, WsMail As Worksheet, i As Long, k as Long

Private Sub UserForm_Initialize()
    Set WsCube = Sheets("BDD Cube")
    Set WsMail = Sheets("BDD Mail")
End Sub

Private Sub Label100_Click()
    If Label100.BackStyle = fmBackStyleTransparent Then
        Label100.BackStyle = fmBackStyleOpaque
        Label99.BackStyle = fmBackStyleTransparent
        Label101.BackStyle = fmBackStyleTransparent
        Range("A1") = 1
        Range("B1") = "Mail"
        TextBox9.Value = "Mail"
    Else
        Label100.BackStyle = fmBackStyleTransparent
        Range("a1, b1").ClearContents   'Idem pour les autres
    End If
End Sub

Private Sub Label119_Click()
'Ici change textbox9 par la 8
If TextBox9.Value = "Cube" Then
  With WsCube


  End With

  ElseIf TextBox9.Value = "Mail" Then

'Et ici
  With WsMail
         k = 7
         For i = 2 to 7
                k = k + 1
               .Range("a" & i) = Controls("TextBox" & k)
         Next i
  End With
  End If
'Au lieu de Range("a2") = TextBox8 - Range("a3") = TextBox9 etc.
End Sub