Private Sub CmdValider_Click()
' Recopie les valeurs dans les cellules du mois de la feuille sélectionnée.
Range("B3").Value = [COLOR=Red]CDbl([/COLOR]FrmAjout.BoxTravail[COLOR=Red]) [/COLOR] ' Heures Travaillés
Range("B4").Value =[COLOR=Red] CDbl([/COLOR]FrmAjout.BoxPlafon[COLOR=Red]) [/COLOR] ' Jours Plafonnés
Range("B5").Value = [COLOR=Red]CDbl([/COLOR]FrmAjout.BoxPaie[COLOR=Red])[/COLOR] ' Heures Payés
Unload FrmAjout ' Fermeture du formulaire
Range("A1").Select
End Sub