je ne comprends pas pourquoi les quelques lignes qui suivent ne marchent pas.... la ligne FIN existe bien, je n'ai pas de message d'erreur mais même si la Cellule "B7" est vide il y a execution des lignes avant FIN....
Worksheets("Rapport").Activate
Range("B7").Select
If IsEmpty(ActiveCell.Value) Then GoTo FIN