Private Sub UserForm_Activate()
........................................................
Case l[COLOR="Red"]igne début de la ville[/COLOR] to [COLOR="Red"]ligne fin de zone[/COLOR]
.Caption = "Destination : [COLOR="Red"]nom de la ville[/COLOR]"
cel.Interior.ColorIndex = [COLOR="Red"]couleur de la ville[/COLOR]