Fact_HNO_FullFileName = ThisWorkbook.Name
Windows(Fact_HNO_FullFileName).Activate
NomFeuilleATraiter = ActiveSheet.Name
'recherche dernière ligne de l'onglet du mois
LastLine_Planning = Sheets(NomFeuilleATraiter).Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row
'on demande la ligne où commencer le traitement
Windows(Fact_HNO_FullFileName).Activate
reponse = InputBox("N° de ligne où commencer le traitement ?", Admin)