Mémoire insuffisante pour afficher en entier

[matrix]

Bonjour à tous,

Je rencontre un message: Mémoire insuffisante pour afficher en entier.

Se message arrive quand je clique pour la 2ième fois sur le combobox1 apres avoir cliqué sur le bouton sauvegarder.

Voici le script:

Private Sub UserForm_Initialize()

  Dim Plage As String   
    
   'syndic
   With Sheets("Listes")
    Plage = .Range("A2:A" & .Range("A65536").End(xlUp).Row).Address
     End With
ComboBox1.RowSource = "Listes!" & Plage
    
End Sub

ComboBox2:

Private Sub ComboBox2_DropButtonClick()
If ComboBox1 = "Chauffeurs 501" Then
With Sheets("Listes")
    Plage = .Range("B2:B" & .Range("B65536").End(xlUp).Row).Address
End With
ComboBox2.RowSource = "Listes!" & Plage
End If

If ComboBox1 = "Chauffeurs 1991-P" Then
With Sheets("Listes")
    Plage = .Range("C2:C" & .Range("C65536").End(xlUp).Row).Address
End With
ComboBox2.RowSource = "Listes!" & Plage
End If

If ComboBox1 = "Banc" Then
With Sheets("Listes")
    Plage = .Range("D2:D" & .Range("D65536").End(xlUp).Row).Address
End With
ComboBox2.RowSource = "Listes!" & Plage
End If


 If ComboBox1 = "Chauffeurs 501" Then
    TextBox7 = (DTPicker1.Value) + 180
    End If
    
    If ComboBox1 = "Chauffeurs 1991-P" Then
    TextBox7 = (DTPicker1.Value) + 270
    End If
   
End Sub

Comment faire pour corriger se problème?

Merci de votre aide

 

[matrix]

Re : Mémoire insuffisante pour afficher en entier

J'ai trouvé,

Je devais mettre les caractères en arial.

Et voilà que le tout fonctionne.