Option Explicit
Public Sub TestSelect()
'Lundi
SetValueSelect 1, 111.21
'Mercredi
SetValueSelect 3, 456.99
'Vendredi
SetValueSelect 5, 432.25
'Dimanche
SetValueSelect 7, 710.17
End Sub
Public Sub SetValueSelect(lday As Long, lValue As Currency)
Select Case lday
case1: Feuil1.Range("a1") = lValue
case2: Feuil1.Range("b1") = lValue
case3: Feuil1.Range("c1") = lValue
case4: Feuil1.Range("d1") = lValue
case5: Feuil1.Range("e1") = lValue
case6: Feuil1.Range("f1") = lValue
case7: Feuil1.Range("g1") = lValue
End Select
End Sub