nom de plage, taille variable

Bonjour au forum,

Je me permet de vous demander une petite aide car je ne sais pas si c'est realisable :

Je dois creer une liste de choix qui peut varié au niveau des items. Pour cela je recopie chaque cellule non vide dans une nouvelle page et ensuite je nomme cette plage de cellule, afin de l'utilisé dans ma formule de validation sur une autre feuille.

mon soucis et que je ne peux actuellement pas limité la taille de cette plage au nombre de cellule non vide car mon code n'est pas accepté avec la variable j compteur de cellule non vide.

Je vous met la partie du code :

If marque = 1 Then
ActiveWorkbook.Names("PlageD").Delete
End If

ActiveWorkbook.Names.Add Name:="PlageD", RefersToR1C1:= _
"=source!R2C4:R9C4"
' /\
' ||
'c'est ici que le "9" devrait etre remplacé par j

'modif maxi si augmentation nombre PSE C

With Sheets("jour").Range("D11:E11").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=PlageD"

.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With


Merci beaucoup d'avance pour vos reponses !
Maxime

P.S : je vous met le code entier en piece jointe si besoin !