Private Sub NomValider_click()
[COLOR="Red"]OngletSemaine = "MS47"
OngletLuMa = Worksheets(OngletSemaine).Cells(18, 1)
OngletMeJe = Worksheets(OngletSemaine).Cells(19, 1)
OngletVeSaDi = Worksheets(OngletSemaine).Cells(20, 1)[/COLOR]
[COLOR="Blue"] Ligne = NomNuméroLigne.Value[/COLOR]
Worksheets(OngletLuMa).Cells(Ligne, 39) = ValeurPlatFroidLundi.Value
End Sub