Salut horusbk,
Salut ThauTheme,
Petite erreur d'inattention, sûrement...
If Not Application.Intersect(Target, Range("A5:A20")) Is Nothing Then
Autre question : tes procédures doivent-elles se lancer lors de la SÉLECTION de ces cellules ou lors d'un CHANGEMENT de valeur de ces cellules ?
Si SÉLECTION alors, oui, Sub Worksheet_SelectionChange sinon Sub Worksheet_Change.
Private Sub Worksheet_Change(ByVal Target As Range)
'
Application.EnableEvents = False
'
If Not Application.Intersect(Target, Range("A5:A20")) Is Nothing Then
'Code
End If
If Not Application.Intersect(Target, Range("A25:A32")) Is Nothing Then
'Code
End If
'
Application.EnableEvents = True
'
End Sub
A+