information macro

Bonjour Groupe,

Voici un petit problème que vous pouvez surment me resoudre...

Ma macro actuelle qui fonctionne a merveille est la suivante :

Sub Choix_Articles()
Application.ScreenUpdating = False
If Not Intersect(Range("b6:b30"), ActiveCell) Is Nothing Then
UserForm1.Show
End If
Application.ScreenUpdating = True
End Sub

Cliquez pour agrandir...

J'aimerais que mon userForm apparaisse pas juste dans le range B6:b30 mais aussi G10:G15 et peux etre G30:G35
Que dois-je mettre dans ma macro pour que ca passe?