For i = 3 To 5
col = Int(0.0833333333 * i ^ 3 - 1.6785714286 * i ^ 2 + 14.6666666667 * i + 18) 'fonction qui permet de calculer approximativement le N° de colonne des cellules
'Conditions par Switch :
col = Switch(i = 3, col + 2, i = 4, col - 3, i = 5, col + 3) 'réajustements col = Switch(i = 3, col + 2, i = 4, col - 3, i = 5, col + 3) 'réajustements
ou
' col = col + Switch(i = 3, 2, i = 4, -3, i = 5, 3) 'réajustements
MsgBox Split(Columns(col).Address(0, 0), ":")(1)
Set cellule = Range(Split(Columns(col).Address(0, 0), ":")(1) & celda.Row) 'ne marche pas si l'on passe par "Switch"
cellule = "ZZZ" 'cellule.Formula '"traitement" de chaque cellule
Next
End Sub