Bonjour à tous,
Etant débutant je m'exerce à reproduire des exemples trouvés sur des sites...
Je ne comprends pas pourquoi la macro (simple) suivante ne fonctionne pas :
Sub SelectionDiscontinue()
Dim Z1, Z2, MaPlageMultiZone As Range
Worksheets("Feuil1").Select
Range("A1").Select
ActiveCell.End(xlDown).Select
Zone1 = ActiveCell.Address
Selection.Offset(0, 2).Select
Zone2 = ActiveCell.Address
Set Z1 = Range("A1", Zone1)
Set Z2 = Range("C1", Zone2)
Set MaPlageMultiZone = Union(Z1, Z2)
ZoneSelection = MaPlageMultiZone.Select
A la ligne "Set Z1", VBA me renvoie une erreur '1004'
Je vous remercie d'avance de votre aide
MichaelH