Private Sub Worksheet_Change(ByVal Target As Range)
'Comment intégrer une multi plage de cellule type A1:10; A15:A20; A25:A30 ?
If Not Intersect(Target, Range("A1:A10,A15:A20,A25:A30")) Is Nothing Then
'--------------
'--------------
'--------------
End If
End Sub