Sub Boucle()
Dim i As Integer, a As Double, b As Double 'si a et b entiers remplacer par integer ou long
a= 'ta valeur pour a
b= 'idem
For i = 1 To 25 'pour chaque ligne de 1 à 25
Cells(i, 15) = a * Cells(i, 1) + b 'la cellule colonneO vaut a*colonneA+b
Next i
End Sub