"Microsoft excel a rencontré un problème et doit être fermé..."

Bonjour,

Je vous contacte en espérant que vous trouverez une solution à mon problème. J'ai déjà cherché sur plusieurs forums et je ne suis pas arrivée à supprimer le message d'erreur suivant :"Microsoft Excel a rencontré un problème et doit être fermé. Nous vous prions de nous excuser pour le désagrément encouru."

Mon fichier Excel contient des évènements sur une feuille, quelques macros et est protégé (l'idée générale c'est d'afficher ou masquer des lignes en fonction des valeurs saisies). Lorsque je saisis des informations sur ma feuille, il arrive des fois que mon ordinateur affiche ce message. Cela entraîne ensuite la fermeture de mon fichier et la perte des informations. Je rencontre ce problème uniquement sur ce fichier :s

Est ce quelqu'un sait d'où vient mon problème ? Cela provient-il obligatoirement du code que j'ai écrit ? Y-a-t-il trop de "Case" et sa fait buger Excel ?

Merci d'avance pour votre aide

Leoventuras

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Locked = True Then ActiveCell.Next.Activate
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)

Call Macro_UnProtect

  Col = Target.Column
  Ligne = Target.Row

With Sheets("Feuill1")
   Select Case Col
        Case 4
            Select Case Ligne
                Case Range("AB5").Value   
                    Fonction1
                Case Range("AB6").Value   
                    Fonction1
                Case Range("AB7").Value   
                    Fonction1
                Case Range("AB8").Value   
                    Fonction1
                Case Range("AB9").Value  
                    Fonction1
                Case Range("AB10").Value   
                    Fonction1
                Case Range("AB11").Value   
                    Fonction1
                Case Range("AB12").Value  
                    If Range("D" & Ligne).Value = 1 Then
                        Sheets("Saisie_Devis").Rows(Ligne + 1 & ":" & Ligne + 8).EntireRow.Hidden = True
                        Range("D" & Ligne).Select
                        Fonction2
                    ElseIf Range("D" & Ligne).Value = 2 Then
                        Fonction1
                    End If
                Case Range("AB13").Value  
                    Fonction1
                Case Range("AB14").Value  
                    Fonction1
                Case Range("AB16").Value 
                    Fonction1
                Case Range("AB18").Value  
                    Fonction1
                Case Range("AB19").Value 
                    Fonction1
                Case Range("AB21").Value 
                    If Range("D" & Ligne).Value = 1 Then
                        Sheets("Saisie_Devis").Rows(Ligne + 1 & ":" & Ligne + 13).EntireRow.Hidden = True
                    ElseIf Range("D" & Ligne).Value = 2 Then
                        Fonction1
                    End If
                    Fonction1
                Case Range("AB24").Value  
                    Fonction1
                Case Range("AB25").Value  
                    Fonction1
                Case Range("AB31").Value  
                    Fonction1
                Case Range("AB32").Value
                    Fonction1
                Case Range("AB35").Value  
                    Fonction1
            End Select
        Case 2
            Select Case Ligne
                Case Range("AB" & 12).Value + 2
                    Call Function3
                Case Range("AB" & 21).Value + 2
                    Call Fonction4
            End Select
    End Select
End With
Call Macro_Protect
End Sub