Bonjour Karl et le forum,
Au lieu de:
Columns(5).Find("*", , , , , xlPrevious).Offset(1, 0).Select
DebutPlage = Range("A9").Address
FinPlage = ActiveCell.Address
Plage= ??????
Essaies ceci (il faut que E9 ne soit pas vide):
ActiveWorkbook.Names.Add Name:="plage", RefersTo:="=Feuil1!$A$9:" & (Columns(5).Find("", [E9], , , xlByRows).Address)