selectionner une table dans une macro

Informan à dit:

Bonjour,

Après mille recherches, je reviens solliciter votre aide. En effet mon macrao dois selectionner une plage de cellule variable constituant un tableau que je dois nommer pour effectuer des calculs matriciels.

voici la formule que j'ai ecrit:

Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.Names.Add Name:="put", RefersToR1C1:= _
"=Contrat!R2C19:R157C19"
ActiveCell.Offset(0, -13).Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.Names.Add Name:="dion", RefersToR1C1:="=Contrat!R2C6:R156C6"
ActiveCell.Offset(0, -5).Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.Names.Add Name:="arc", RefersToR1C1:="=Contrat!R2C1:R156C1"
ActiveCell.Select
Sheets("Contrôle HAWA").Select
ActiveCell.Offset(-7, -1).Range("A1").Select
Selection.FormulaArray = _
"=+IF(ISNA(MATCH(RC[-3]&RC[-2],arc&dion,0)),"""",INDEX(put,MATCH(RC[-3]&RC[-2],arc&dion,0)))"

En effet, quand je mets un grand nombre de ligne la macro ne fonctionne pas, les table restent figées de la ligne 2 à la ligne 156. Je pense bien que c'est la formule refers To R1Ci:= qui fige tout, je ne sais comment le contrer. Je souhaite nommer toutes les ligne non vide de la colonne sélectionnée.

Merci d'avance pour votre réponse

Cliquez pour agrandir...

Range(Selection, UsedRange).Select
ActiveWorkbook.Names.Add Name:="put", RefersTo:="=feuil1!" & Selection.Address