Insertion de Colonne

Bonjour le forum

Est-il possible de détecter si l'on fait une insertion de colonne afin de lancer une macro ?

Merci de votre aide.

J'ai bien trouvé sur le Forum ce code

Code:

---

1 2 3

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Target.Rows.Count = Rows.Count Then MsgBox "Ligne(s) supprimée(s) ou ajoutée(s)" End Sub

---

Seulement, cela fonctionne seulement lorsque je supprime une colonne, pas quand j'en insère une.

Solution trouvée :

Code:

---

1 2 3 4 5

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)   If Target.Row = 1 Then If Target.Rows.Count = ActiveSheet.Rows.Count Then MsgBox "Colonne : " & Target.Column & " ajoutée ou supprimée "   End Sub

---

Bonjour à tous

Mon code fonctionne bien, mais seulement avec Excel 2003. Sur Excel 2000, cela ne fonctionne que lorsque j'enlève une colonne, pas quand j'en rajoute une.

Quelqu'un aurait-il une idée ?

Merci