Si votre email correspond à un compte, vous recevrez un lien de réinitialisation.
With worksheets("Données").PageSetup.PrintArea = "$A$2:$D$" & Range("A65365").End(xlup).rowEnd with--JLuc
With worksheets("Données") .PageSetup.PrintArea = "$A$2:$D$" & Range("A65365").End(xlup).row End with -- JLuc