Function firstrow(zone)
'--- fait par PJ
firstrow = zone.Row
End Function
Function firstcol(zone)
'--- fait par PJ
firstcol = zone.Column
End Function
Et par exemple sur t(3,7):
Set ta = Range("C4:I8")
i = 3
J = 7
adref = Cells(i + firstrow(ta) - 1, J + firstcol(ta) - 1).Address