With Sheets("Feuille2")
val(compteur) = [B][COLOR=blue].[/COLOR][/B]Cells(Me.cmd_entrée.ListIndex + 2, 2) + [B][COLOR=#0000ff].[/COLOR][/B]Cells(Me.cmd_plat.ListIndex + 2, 4) + [B][COLOR=#0000ff].[/COLOR][/B]Cells(Me.cmd_laitage.ListIndex + 2, 6) + [B][COLOR=#0000ff].[/COLOR][/B]Cells(Me.cmd_dessert.ListIndex + 2, 8) + [B][COLOR=#0000ff].[/COLOR][/B]Cells(Me.cmd_boisson.ListIndex + 2, 10) + [B][COLOR=#0000ff].[/COLOR][/B]Cells(Me.cmd_pain.ListIndex + 2, 12)
End With