Microsoft 365 ERREUR AUTOMATION DÉFAILLANCE IRRÉMÉDIABLE

[FLEBY]

Bonjour le forum,

Connaissez-vous les causes de ""Erreur Automation - Défaillance irrémédiable"" ?


J'ai crée une petite application en basant sur des codes VBA du site de M. Boigontier ainsi que des codes grâce aux aides du forum.

L' erreur est aléatoire. De plus, elle me mets des doublons de mes feuilles sur l'explorateur de projet.

J'ai essayé de déboguer , cela me met directement "Erreur Automation - Défaillance irrémédiable"

Je suis bloqué, j'ai tout essayé à mon niveau.


Quelqu'un peux m'éclairer ? Me donner des pistes ?

Ci-joint le fichier anonymisé

Respectueusement,

 

[FLEBY]

Il y aussi ce code que j'ai effacé par erreur. Desolé

Option Explicit

Private Sub cbSheet_Change()
 Dim GestionErreur As String
  On Error GoTo GestionErreur
   If cbSheet.Value <> "Selectionner un projet" Then
    Worksheets(cbSheet.Value).Select
   End If
    cbSheet.Value = "Selectionner un projet"
    Exit Sub
GestionErreur:
 MsgBox Err.Number & " , " & Err.Description
End Sub


Private Sub Worksheet_Activate()
 Application.ScreenUpdating = False '' optimation code
    Dim j As Integer, n As Integer, i As Integer
    
    For j = 1 To Sheets.Count
     If Sheets(j).Name <> "Accueil" And Sheets(j).Name <> "TABLEAU" And Sheets(j).Name <> "SITE" Then ActiveSheet.Range("AK65535").End(xlUp).Offset(1, 0) = Sheets(j).Name
    Next j
     ActiveSheet.Range("AK:AK").Sort key1:=Range("AK2"), order1:=xlAscending
        ActiveSheet.cbSheet.Clear
         n = ActiveSheet.Cells(Rows.Count, 37).End(xlUp).Row
       For i = 1 To n
       ActiveSheet.cbSheet.AddItem Cells(i, 37)
       Next i
      ActiveSheet.Range("AK:AK").ClearContents
    
    Application.ScreenUpdating = True 'optimisation code (Facultatif )
    
End Sub


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   UserForm1.Show
   Cancel = True
End Sub