dim drligne as long
drligne =30 'pour l'exemple
Range("A2:D" & drligne).Select
ActiveWorkbook.Names.Add Name:="liste1", RefersToR1C1:= _
"=mafeuille!R2C1:R[" & drligne & " ]C4"
'sur un refertor1c1 normal la syntaxe et la suivante
'"mafeuille!r2c1:r30c4"
ActiveWorkbook.Names("liste1").Comment = ""