Nommer Cellules active sous VB-Excel

Bonjour,

Je souhaite utiliser Visual Basic pour coller un nom sur plage de cellule sous excel dont le nombre de lignes varie (le nombre de colonne ne variant pas).

Je pensais pouvoir régler le problème en utilisant le programme ci contre mais la référence du nom (sous Insertion/nom/Définir) apparait comme "OPVOLR$A$3:$J$9416", et est donc inexploitable (les références utilisables sont mentionnées sans les guillemets.

Voici le programme en question :

Sub Macro1()
Dim nblignes As Integer
Dim plageActive As String

Range("a3").Select
nblignes= 3

Do While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Range("a1").Select
nblignes = nblignes + 1
Loop

Range("a3").Select
' ActiveWorkbook.Names("PCG").Delete

plageActive = ("OPVOLR!$A$3:$J$" & nblignes)
ActiveWorkbook.Names.Add Name:="PCG", RefersToR1C1:="OPVOLR!$A$3:$J$" & nblignes

End Sub


Je suis bloqué sur ce point depuis deux jours (eh oui, n'est pas Steve Wozniak qui veut).

kelk'un peut'il m'aider, s'iouplait ???!