mCellule In Target

bonjour j'essaye de avec ce code si un target et dans la colonne 13
mais dans une plage et qui commencerai en ligne 5 jusqu’à 365

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub Worksheet_Change(ByVal Target As Range)   '''''''''''''''''''''''traiter cellule   Dim mCellule As Object   For Each mCellule In Target If mCellule.Column = 13 Then     traiter_cellule mCellule   End If Next mCellule

---

pouvez vous m'aider
cordialement et merci à tous

A placer dans ton le module de ton sheet

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_Change(ByVal Target As Range) Set KeyCells=Sheets("Tonsheet").range("M5:M365")   If not application.intersect(KeyCells, Range(Target.Address)) Is nothing then traiter_cellule target end if End sub

---