optimisation boucle

bonjour à tous
j'ai une boucle qui marche nikel

Dim nbligne
nbligne = Range('l1')

For d = 2 To nbligne
Dim cinq
Dim six
cinq = Cells(d, 5)
six = Cells(d, 6)
Dim direction
direction = Cells(d, 7)
Select Case direction
Case 15 To 45
Range('H' & d & ':' & 'I' & d).Select
activecells = '=LOGEST(R1C5:R1C6,RC[-3]:RC[-2])'
End Select
Next d


ca marche mais ca copie a chaque fois la formule '=LOGEST(R1C5:R1C6,RC[-3]:RC[-2])' dans toutes les cases
comment reecrire la formule en utilisant mes 2 variables 'cinq' et 'six'
en gros il faut que je remplace 'activecells = '=LOGEST(R1C5:R1C6,RC[-3]:RC[-2])'' par autre chose

je suis à l'ecoute de toutes reponses, je vous remercie d'avance

dave de grenoble sur chaune..