Bonjour
voila un principe
j'ais modifier la macro de GMB
A toi de voir
A+
Maurice
Dim Plage, Plage1, Plage2 As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
' Set plage = Union(Range("B3:C10"), Range("B19:D26"), Range("E8:G16"))
Set Plage = Range("B3:C10")
Set Plage1 = Range("B19:D26")
Set Plage2 = Range("E8:G16")
If Not Intersect(Target, Plage) Is Nothing Then UserForm1.Show
If Not Intersect(Target, Plage1) Is Nothing Then UserForm2.Show
If Not Intersect(Target, Plage2) Is Nothing Then UserForm3.Show
End Sub