Solveur Boucle VBA plusieurs variables incrémentées

Rebonjour!

J'ai encore un petit (et dernier...) problème :s
J'ai donc réussi grâce au forum et à ériiic, à créer une incrémentation en colonne :

 For K = 0 To 30
SolverOk SetCell:=Cells(16, 14 + K), MaxMinVal:=2, ByChange:=Cells(14, 13 + K)

Problème 1 : Je n'arrive pas à mettre plusieurs variables en utilisant "cells" contrairement à "range"
Ex:

ByChange:=Cells(14, 13),(14, 14)

ne fonctionne pas

Problème 2 : Je n'arrive pas à faire SolverDelete avec la fonction "cells"
Ex:

    SolverAdd CellRef:=Cells(13, 14 + K), Relation:=1, FormulaText:=Cells(31, 14 + K) 
    SolverDelete CellRef:=Cells(13, 14 + K), Relation:=1, FormulaText:=Cells(31, 14 + K)

ne fonctionne pas non plus

Merci pour votre aide