Nommer plusieurs rangées de cellules

Bonjour j'aimerais pouvoir denommer plusieurs collones en generique
indexé
Si c'est pas assez clair, par exemple, la cellule A3 - Pression0;
B3-Debit0; C3-Heure0; D3-Date0
et les prochaines rangées: A4-Pression1;B4-Debit1..................;

A5-Pression2............................;

............................................
jusqu'a environ 3600
Merci d'avance

Salut j'ai concocté ce bout de macro mail il marche pas bien
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 06/06/2006 par Boukli-Hacène
'
For i = 7 To 3607
For j = 4 To 3604
If i < 3607 Then
If j < 3604 Then
Range("A" & i).Select
ActiveWorkbook.Names.Add Name:="Pression" & j,
RefersToR1C1:="=VARIO1!RiC1"
Range("B" & i).Select
ActiveWorkbook.Names.Add Name:="Debit" & j,
RefersToR1C1:="=VARIO1!RiC2"
Range("C" & i).Select
ActiveWorkbook.Names.Add Name:="Heure" & j,
RefersToR1C1:="=VARIO1!RiC3"
Range("D" & i).Select
ActiveWorkbook.Names.Add Name:="Date" & j,
RefersToR1C1:="=VARIO1!RiC4"
On Error Resume Next
Exit For
End If
End If
Next j
Next i

End Sub

Merci pour le coup de main