Boucle if sur VBA

Bonjour,

je commence sur VBA et, évidemment, je galère.

Le but est relativement simple: je voudrais conjuguer une fonction "IF" et une fonction "VALEUR CIBLE" dans une macro, afin qu'elle se fasse automatiquement et plusieurs fois de suite (afin de remplir un tableau);
L'idée est:
j'ai une donnée en ligne 22
De la valeur de cette donnée dépend la formule qui me permettra de calculer la ligne 29
Dans un cas (si la donnée ligne 22 est supérieure à 3000), la seule manière de calculer la donnée ligne 29 est d'utiliser une fonction "valeur-cible", portant sur les valeurs de la ligne 28, et ayant pour but de les ramener à 0.


J'ai donc:


For i = 5 To 26

If Cells(22, i) = 0 Then
Cells(28, i) = 0

ElseIf Cells(22, i) > 3000 Then
Cells(28, i).Select
ActiveSheet.Cells(28, i).GoalSeek Goal:=0, ChangingCell:=ActiveSheet.Cells(29, i)

Else
Cells(29, i) = 16 / Cells(22, i)

End If

Next
End Sub

Or, VBA n'apprécie pas du tout ma ligne ElseIf (et apparemment, pas trop non plus ma ligne ActiveSheet..., même si je ne suis pas encore allé jusque là); quelqu'un aurait il une idée ??

Merci d'avance !!