Précisions
Merci Christophe pour le conseil ;-)
En fait tout est calculé, rien ne peut être mis en dur
actuellement j'avais fait çà mais bon je trouve pas la solution :
Set sel = Calculs.Range(Range(thecell.Offset(rowDeb, indexage - 1), thecell.Offset(rowFin, indexage - 1)), Range(thecell.Offset(rowDeb, indexsal - 1), thecell.Offset(rowFin, indexsal - 1)))
... paske bon, j'ai qd même un peu cherché avant de poser ma question.