Problème de définition de Range

Bonjour,
Je suis (super) débutant avec VBA sous excel.

Je cherche à apliquer des bordures continues à une plage de cellules.

Je voudrais définir la plage de cellulles par 2 valeurs présentes dans Cells(117,36) et Cells(118,36) d'excel et non par la référence de 2 cellules (ex:A1 et B2). Lorsque je rentre "Range(Cells(117, 36).Value, Cells(118, 36).Value).Select" évidemment ça ne marche pas. Comment faire?

J'ai trouvé ce code pour la suite sinon:
Range(Cells(117, 36).Value, Cells(118, 36).Value).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With

Merci par avance de votre aide