Private Sub CmdValider_Click()
Dim TVLChx(1 To 1, 1 To 11), RngLig As Range
TVLChx(1, 1) = TVLBéné(1, 1)
TVLChx(1, 2) = TVLBéné(1, 2)
TVLChx(1, 3) = TVLBéné(1, 3)
TVLChx(1, 5) = OBPres1.Value
TVLChx(1, 6) = CBMois.Value & " " & CBAnnée.Value
TVLChx(1, 11) = TVLBéné(1, 4)
Set RngLig = WshChoix.[A65536].End(xlUp).Offset(1).Resize(, 14)
RngLig.Resize(, 11).Value = TVLChx
RngLig.Columns(12).FormulaR1C1 = "=IFERROR(RC7/INDEX({1;2;4;1},MATCH(RC10,{""Annuelle"";""Semestrielle"";""Trimestrielle"";""Ponctuelle""},0)),"""")"
RngLig.Columns(13).FormulaR1C1 = "=IF(RC7="""","""",RC7-RC8-RC9)"
RngLig.Columns(14).FormulaR1C1 = "=MIN(RC12,RC13)"
CLsBéné.Nettoyer
End Sub