Suppression de ligne bug

Bonjour,

J'ai lancé une marco pour insérer une ligne dans une liste excel, ça c'est mal passé.

Le programme a planté et depuis je ne peux même plus insérer ou supprimer des lignes avec le clic droit.

Même sur une nouvelle liste dans une nouvelle feuille, le bug persiste, j'ai juste réussi à manipuler les colonnes....

Il s'agit de la première liste dans BDD, si vous pouviez y jeter un oeil et m'aider ça serai sympa.

Merci d'avance et bonne journée

ps: sérieux pourquoi aucun de mais fichier .xls ne veux charger en pièce jointe

un lien google drive pour compenser : https://drive.google.com/file/d/0B8X6MAV7nsf7cnU5ZmRveTlQa3M/edit?usp=sharing

Bonjour,

Envoies le code, la procédure, pas ton fichier

Justement tout est dans le fichier du coup

Si tu préfères voilà la procédure qui la fais planté:

Sub newModul()

Dim selected As String: selected = range("SelectedType").value
 Dim modulTab As range: Set modulTab = range("MaterialModul")
    Dim BDD As range: Set BDD = range("BDDModul")

    If Intersect(ActiveCell, modulTab) Is Nothing Then
        modulTab.ListObject.ListRows.Add (1)
    Else
        modulTab.ListObject.ListRows.Add (ActiveCell.Row - modulTab.Row + 1)
    End If

    If modulTab.ListObject.ListRows.Count > BDD.ListObject.ListRows.Count Then

        BDD.ListObject.ListRows.Add (BDD.ListObject.ListRows.Count) 'Erreur

        End If

End Sub

Je suppose que l'indice à du poser problème

Mais bon je ne vois pas comment faire revenir mon fichier en état.

Je retourne chercher!

edit: j'ai réussi à m'en sortir en faisant la liste plus bas dans la feuille de classeur....

Et mon code n’avais rien à voir comme il marche à l'heure actuel

Je suis un peu septique sur ce pb