Private Sub CB_OK_Click()
With Sheets("base de donnees")
Set c = .Range("A" & .Cells(.Rows.Count, 1).End(xlUp).Row)(2)
'y mettre le nom
c.Value = CDec(TB_Annee)
c(1, 2) = CDec(Lab_Mois) & "/" & CDec(TB_Jour) & "/" & CDec(TB_Annee)
c(1, 4) = CDec(Lab_Mois) & "/" & CDec(TB_Jour) & "/" & CDec(TB_Annee)
c(1, 3) = "=IF(ISNA(VLOOKUP(RC[1]),JoursFerie,1,FALSE)),""Normal"",""Férié"")"
If Lab_Nom = "" Then
MsgBox "Veuillez sélectionner un Nom"
Else
c(1, 5) = Lab_Nom
End If
End With
End Sub