Sub Zéro_Max()
Dim a As Range, nom$, formule$
Set a = ActiveCell
Select Case a.Column
Case 2 To 8
NOM = Choose(a.Column - 1, "Cycle_Max", "Cycle_Lionel", "Cycle_Marie_Line", "Cycle_Alain", "Cycle_Kader", "Cycle_Raymond", "Cycle_Tommy")
End Select
formule = "=IF(RC1="""","""",INDEX(" & NOM & ",MOD(RC1-Départ,Durée)+1))"
Cells(6, a.Column).Resize(31).FormulaR1C1 = formule
End Sub