Sub RemplirSageVersion2()
Dim a As Integer 'comptage des jours
Dim b As Integer 'comptage des salaris
Dim LigneSage As Integer
Dim Commentaire As String
Dim Datedebut As Date
Dim Datefin As Date
Dim CongeSansSolde As Integer
Dim TotalCongeSansSolde As Integer
Dim AccidentDeTravailAvecArret As Integer
Dim TotalAccidentDeTravailAvecArret As Integer
Dim TotalAccidentDeTrajet As Integer
Dim AccidentDeTrajet As Integer
Dim CongeAdoption As Integer
Dim TotalCongeAdoption As Integer
Dim CongePourConvenancePersonnelle As Integer
Dim TotalCongePourConvenancePersonnelle As Integer
Dim CongeFormationPro As Integer
Dim TotalCongeFormationPro As Integer
Dim CongepayeNonRemunereParEmployeur As Integer
Dim TotalCongepayeNonRemunereParEmployeur As Integer
Dim CongeAnciennete As Integer
Dim TotalCongeAnciennete As Integer
Dim CongeParental As Integer
Dim TotalCongeParental As Integer
Dim CongePresenceParental As Integer
Dim TotalCongePresenceParental As Integer
Dim FemmeEnceinteDispenseDeTravail As Integer
Dim TotalFemmeEnceinteDispenseDeTravail As Integer
Dim AbsenceMaladie As Integer
Dim TotalAbsenceMaladie As Integer
Dim AbsenceMaladiePro As Integer
Dim TotalAbsenceMaladiePro As Integer
Dim CongePaternite As Integer
Dim TotalCongePaternite As Integer
Dim AbsenceMaternite As Integer
Dim TotalAbsenceMaternite As Integer
Dim AbsenceMiTempsTherapeuthique As Integer
Dim TotalAbsenceMiTempsTherapeuthique As Integer
Dim CongePaye As Integer
Dim TotalCongePaye As Integer
Dim JourFerie As Integer
Dim TotalJourFerie As Integer
Dim RTT As Integer
Dim TotalRTT As Integer

Datedebut = InputBox("Veuillez crire ci-dessous la date de dbut du mois afin de rcuprer les informations de cette priode l :")
Datefin = InputBox("Veuillez crire ci-dessous la date de fin du mois afin de rcuprer les informations de cette priode l :")
LigneSage = 0

CongeSansSolde = 0
TotalCongeSansSolde = 0
AccidentDeTravailAvecArret = 0
TotalAccidentDeTravailAvecArret = 0
TotalAccidentDeTrajet = 0
AccidentDeTrajet = 0
CongeAdoption = 0
TotalCongeAdoption = 0
CongePourConvenancePersonnelle = 0
TotalCongePourConvenancePersonnelle = 0
CongeFormationPro = 0
TotalCongeFormationPro = 0
CongepayeNonRemunereParEmployeur = 0
TotalCongepayeNonRemunereParEmployeur = 0
CongeAnciennete = 0
TotalCongeAnciennete = 0
CongeParental = 0
TotalCongeParental = 0
CongePresenceParental = 0
TotalCongePresenceParental = 0
FemmeEnceinteDispenseDeTravail = 0
TotalFemmeEnceinteDispenseDeTravail = 0
AbsenceMaladie = 0
TotalAbsenceMaladie = 0
AbsenceMaladiePro = 0
TotalAbsenceMaladiePro = 0
CongePaternite = 0
TotalCongePaternite = 0
AbsenceMaternite = 0
TotalAbsenceMaternite = 0
AbsenceMiTempsTherapeuthique = 0
TotalAbsenceMiTempsTherapeuthique = 0
CongePaye = 0
TotalCongePaye = 0
JourFerie = 0
TotalJourFerie = 0
RTT = 0
TotalRTT = 0

For b = 0 To 110
If Sheets("pointage 2017 2018").Cells(1, 4 + b).Value <> "" Then
    For a = 0 To 549
    
    If Sheets("pointage 2017 2018").Cells(2 + a, 3).Value <= Datefin And Sheets("pointage 2017 2018").Cells(2 + a, 3).Value >= Datedebut Then 'si la date est comprise entre les date selectionner par l'administrateur faire
    
        If Sheets("pointage 2017 2018").Cells(2 + a, 4 + b).Value <> "" Then
                        If Not Cells(2 + a, 4 + b).Comment Is Nothing Then 'si cette cellule n'a pas commentaire vide
                        Commentaire = ActiveCell.Comment.Text 'commentaire prend la valeur qui se trouve dans le commentaire de cette cellule
                        End If
                        
                        
             
        'Calcul du total de cong sans solde *************************************************************************************
                        Select Case Commentaire
             
                        Case Is = "Cong sans solde"
                        If TotalAccidentDeTravailAvecArret <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAccidentDeTravailAvecArret 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "AT" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 990 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAccidentDeTravailAvecArret = 0
                        AccidentDeTravailAvecArret = 0
                        End If
                        
                        If TotalAccidentDeTrajet <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAccidentDeTrajet 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "ATR" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1040 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAccidentDeTrajet = 0
                        AccidentDeTrajet = 0
                        End If
                        
                        If TotalCongeAdoption <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeAdoption 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CAD" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 410 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeAdoption = 0
                        CongeAdoption = 0
                        End If
                        
                        If TotalCongePourConvenancePersonnelle <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePourConvenancePersonnelle 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CCP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 980 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePourConvenancePersonnelle = 0
                        CongePourConvenancePersonnelle = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                        If TotalCongeFormationPro <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeFormationPro 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CF" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeFormationPro = 0
                        CongeFormationPro = 0
                        End If
                        'ATTENTION CODE NATURE A VERIFER POUR CELUI CI
                        If TotalCongepayeNonRemunereParEmployeur <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongepayeNonRemunereParEmployeur 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CNR" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongepayeNonRemunereParEmployeur = 0
                        CongepayeNonRemunereParEmployeur = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI et CODE ABSENCE(motif)
                        If TotalCongeAnciennete <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeAnciennete 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "a mettre" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeAnciennete = 0
                        CongeAnciennete = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                        If TotalCongeParental <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeParental 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CPA" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeParental = 0
                        CongeParental = 0
                        End If
                        'ATTENTION CODE NATURE A VERIFER POUR CELUI CI
                        If TotalCongePresenceParental <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePresenceParental 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CPP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1060 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePresenceParental = 0
                        CongePresenceParental = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                        If TotalFemmeEnceinteDispenseDeTravail <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalFemmeEnceinteDispenseDeTravail 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "FENC" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 0 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalFemmeEnceinteDispenseDeTravail = 0
                        FemmeEnceinteDispenseDeTravail = 0
                        End If
                        If TotalAbsenceMaladie <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaladie 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MA" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 960 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMaladie = 0
                        AbsenceMaladie = 0
                        End If
                        If TotalAbsenceMaladiePro <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaladiePro 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MAP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1000 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMaladiePro = 0
                        AbsenceMaladiePro = 0
                        End If
                        If TotalCongePaternite <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePaternite 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1050 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePaternite = 0
                        CongePaternite = 0
                        End If
                        If TotalAbsenceMaternite <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaternite 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MT" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1010 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMaternite = 0
                        AbsenceMaternite = 0
                        End If
                        'ATTENTION CODE ABSENCE(motif) A OBTENIR POUR CELUI CI
                        If TotalAbsenceMiTempsTherapeuthique <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMiTempsTherapeuthique 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 440 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMiTempsTherapeuthique = 0
                        AbsenceMiTempsTherapeuthique = 0
                        End If
                        'ATTENTION CODE ABSENCE(motif) A VERIFIER POUR CELUI CI
                        If TotalCongePaye <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePaye 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 950 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePaye = 0
                        CongePaye = 0
                        End If
                        'Ne rentre peut tre pas en compte comme une absence mais comme un droit
                        If TotalJourFerie <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalJourFerie 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 0 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalJourFerie = 0
                        JourFerie = 0
                        
                        End If
                        'ATTENTION CODE ABSENCE(motif) A OBTENIR POUR CELUI CI
                        If TotalRTT <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalRTT 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 3000 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalRTT = 0
                        RTT = 0
                        End If
                        
                        If TotalCongeSansSolde = 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 9).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de dbut
                        Else
                        CongeSansSolde = Sheets("pointage 2017 2018").Cells(2 + a, 4 + b).Value
                        TotalCongeSansSolde = TotalCongeSansSolde + CongeSansSolde
                        End If
                        
                        
        'Calcul du total des Accidents de travail avec arrt**************************************************
             
             
                        Case Is = "Accident de travail avec arrt"
                        If TotalCongeSansSolde <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeSansSolde 'on met le total du conge sans solde
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CS" 'on met le code du motif , ici conge sans solde
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 980 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeSansSolde = 0
                        CongeSansSolde = 0
                        End If
                        
                        If TotalAccidentDeTrajet <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAccidentDeTrajet 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "ATR" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1040 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAccidentDeTrajet = 0
                        AccidentDeTrajet = 0
                        End If
                        
                        If TotalCongeAdoption <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeAdoption 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CAD" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 410 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeAdoption = 0
                        CongeAdoption = 0
                        End If
                        
                        If TotalCongePourConvenancePersonnelle <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePourConvenancePersonnelle 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CCP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 980 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePourConvenancePersonnelle = 0
                        CongePourConvenancePersonnelle = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                        If TotalCongeFormationPro <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeFormationPro 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CF" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeFormationPro = 0
                        CongeFormationPro = 0
                        End If
                        'ATTENTION CODE NATURE A VERIFER POUR CELUI CI
                        If TotalCongepayeNonRemunereParEmployeur <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongepayeNonRemunereParEmployeur 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CNR" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongepayeNonRemunereParEmployeur = 0
                        CongepayeNonRemunereParEmployeur = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI et CODE ABSENCE(motif)
                        If TotalCongeAnciennete <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeAnciennete 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "a mettre" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeAnciennete = 0
                        CongeAnciennete = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                        If TotalCongeParental <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeParental 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CPA" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeParental = 0
                        CongeParental = 0
                        End If
                        'ATTENTION CODE NATURE A VERIFER POUR CELUI CI
                        If TotalCongePresenceParental <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePresenceParental 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CPP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1060 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePresenceParental = 0
                        CongePresenceParental = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                        If TotalFemmeEnceinteDispenseDeTravail <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalFemmeEnceinteDispenseDeTravail 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "FENC" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 0 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalFemmeEnceinteDispenseDeTravail = 0
                        FemmeEnceinteDispenseDeTravail = 0
                        End If
                        If TotalAbsenceMaladie <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaladie 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MA" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 960 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMaladie = 0
                        AbsenceMaladie = 0
                        End If
                        If TotalAbsenceMaladiePro <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaladiePro 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MAP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1000 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMaladiePro = 0
                        AbsenceMaladiePro = 0
                        End If
                        If TotalCongePaternite <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePaternite 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1050 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePaternite = 0
                        CongePaternite = 0
                        End If
                        If TotalAbsenceMaternite <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaternite 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MT" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1010 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMaternite = 0
                        AbsenceMaternite = 0
                        End If
                        'ATTENTION CODE ABSENCE(motif) A OBTENIR POUR CELUI CI
                        If TotalAbsenceMiTempsTherapeuthique <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMiTempsTherapeuthique 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 440 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMiTempsTherapeuthique = 0
                        AbsenceMiTempsTherapeuthique = 0
                        End If
                        'ATTENTION CODE ABSENCE(motif) A VERIFIER POUR CELUI CI
                        If TotalCongePaye <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePaye 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 950 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePaye = 0
                        CongePaye = 0
                        End If
                        'Ne rentre peut tre pas en compte comme une absence mais comme un droit
                        If TotalJourFerie <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalJourFerie 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 0 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalJourFerie = 0
                        JourFerie = 0
                        
                        End If
                        'ATTENTION CODE ABSENCE(motif) A OBTENIR POUR CELUI CI
                        If TotalRTT <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalRTT 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 3000 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalRTT = 0
                        RTT = 0
                        End If
                        
                        If TotalAccidentDeTravailAvecArret = 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 9).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de dbut
                        Else
                        AccidentDeTravailAvecArret = Sheets("pointage 2017 2018").Cells(2 + a, 4 + b).Value
                        TotalAccidentDeTravailAvecArret = TotalAccidentDeTravailAvecArret + AccidentDeTravailAvecArret
                        End If
                        
                        
        'Calcul du total des Accidents de trajet ****************************************************************
             
             
                        Case Is = "Accident de trajet"
                        
                        If TotalCongeSansSolde <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeSansSolde 'on met le total du conge sans solde
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CS" 'on met le code du motif , ici conge sans solde
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 980 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeSansSolde = 0
                        CongeSansSolde = 0
                        End If
                        
                        If TotalAccidentDeTravailAvecArret <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAccidentDeTravailAvecArret 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "AT" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 990 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAccidentDeTravailAvecArret = 0
                        AccidentDeTravailAvecArret = 0
                        End If
                        
                        If TotalCongeAdoption <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeAdoption 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CAD" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 410 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeAdoption = 0
                        CongeAdoption = 0
                        End If
                        
                        If TotalCongePourConvenancePersonnelle <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePourConvenancePersonnelle 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CCP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 980 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePourConvenancePersonnelle = 0
                        CongePourConvenancePersonnelle = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                        If TotalCongeFormationPro <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeFormationPro 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CF" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeFormationPro = 0
                        CongeFormationPro = 0
                        End If
                        'ATTENTION CODE NATURE A VERIFER POUR CELUI CI
                        If TotalCongepayeNonRemunereParEmployeur <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongepayeNonRemunereParEmployeur 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CNR" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongepayeNonRemunereParEmployeur = 0
                        CongepayeNonRemunereParEmployeur = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI et CODE ABSENCE(motif)
                        If TotalCongeAnciennete <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeAnciennete 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "a mettre" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeAnciennete = 0
                        CongeAnciennete = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                        If TotalCongeParental <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeParental 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CPA" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeParental = 0
                        CongeParental = 0
                        End If
                        'ATTENTION CODE NATURE A VERIFER POUR CELUI CI
                        If TotalCongePresenceParental <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePresenceParental 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CPP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1060 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePresenceParental = 0
                        CongePresenceParental = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                        If TotalFemmeEnceinteDispenseDeTravail <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalFemmeEnceinteDispenseDeTravail 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "FENC" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 0 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalFemmeEnceinteDispenseDeTravail = 0
                        FemmeEnceinteDispenseDeTravail = 0
                        End If
                        If TotalAbsenceMaladie <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaladie 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MA" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 960 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMaladie = 0
                        AbsenceMaladie = 0
                        End If
                        If TotalAbsenceMaladiePro <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaladiePro 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MAP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1000 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMaladiePro = 0
                        AbsenceMaladiePro = 0
                        End If
                        If TotalCongePaternite <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePaternite 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1050 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePaternite = 0
                        CongePaternite = 0
                        End If
                        If TotalAbsenceMaternite <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaternite 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MT" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1010 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMaternite = 0
                        AbsenceMaternite = 0
                        End If
                        'ATTENTION CODE ABSENCE(motif) A OBTENIR POUR CELUI CI
                        If TotalAbsenceMiTempsTherapeuthique <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMiTempsTherapeuthique 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 440 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMiTempsTherapeuthique = 0
                        AbsenceMiTempsTherapeuthique = 0
                        End If
                        'ATTENTION CODE ABSENCE(motif) A VERIFIER POUR CELUI CI
                        If TotalCongePaye <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePaye 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 950 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePaye = 0
                        CongePaye = 0
                        End If
                        'Ne rentre peut tre pas en compte comme une absence mais comme un droit
                        If TotalJourFerie <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalJourFerie 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 0 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalJourFerie = 0
                        JourFerie = 0
                        
                        End If
                        'ATTENTION CODE ABSENCE(motif) A OBTENIR POUR CELUI CI
                        If TotalRTT <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalRTT 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 3000 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalRTT = 0
                        RTT = 0
                        End If
                        
                        If TotalAccidentDeTrajet = 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 9).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de dbut
                        Else
                        AccidentDeTrajet = Sheets("pointage 2017 2018").Cells(2 + a, 4 + b).Value
                        TotalAccidentDeTrajet = TotalAccidentDeTrajet + AccidentDeTrajet
                        End If
                        
                        
                        
        'Calcul du total des Conge adoption***********************************************************************
             
             
             
                        Case Is = "Cong adoption"
                        
                        If TotalCongeSansSolde <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeSansSolde 'on met le total du conge sans solde
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CS" 'on met le code du motif , ici conge sans solde
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 980 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeSansSolde = 0
                        CongeSansSolde = 0
                        End If
                        
                        If TotalAccidentDeTravailAvecArret <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAccidentDeTravailAvecArret 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "AT" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 990 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAccidentDeTravailAvecArret = 0
                        AccidentDeTravailAvecArret = 0
                        End If
                        
                        If TotalAccidentDeTrajet <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAccidentDeTrajet 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "ATR" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1040 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAccidentDeTrajet = 0
                        AccidentDeTrajet = 0
                        End If
                        
                        If TotalCongePourConvenancePersonnelle <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePourConvenancePersonnelle 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CCP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 980 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePourConvenancePersonnelle = 0
                        CongePourConvenancePersonnelle = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                        If TotalCongeFormationPro <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeFormationPro 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CF" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeFormationPro = 0
                        CongeFormationPro = 0
                        End If
                        'ATTENTION CODE NATURE A VERIFER POUR CELUI CI
                        If TotalCongepayeNonRemunereParEmployeur <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongepayeNonRemunereParEmployeur 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CNR" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongepayeNonRemunereParEmployeur = 0
                        CongepayeNonRemunereParEmployeur = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI et CODE ABSENCE(motif)
                        If TotalCongeAnciennete <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeAnciennete 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "a mettre" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeAnciennete = 0
                        CongeAnciennete = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                        If TotalCongeParental <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeParental 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CPA" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeParental = 0
                        CongeParental = 0
                        End If
                        'ATTENTION CODE NATURE A VERIFER POUR CELUI CI
                        If TotalCongePresenceParental <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePresenceParental 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CPP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1060 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePresenceParental = 0
                        CongePresenceParental = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                        If TotalFemmeEnceinteDispenseDeTravail <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalFemmeEnceinteDispenseDeTravail 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "FENC" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 0 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalFemmeEnceinteDispenseDeTravail = 0
                        FemmeEnceinteDispenseDeTravail = 0
                        End If
                        If TotalAbsenceMaladie <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaladie 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MA" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 960 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMaladie = 0
                        AbsenceMaladie = 0
                        End If
                        If TotalAbsenceMaladiePro <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaladiePro 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MAP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1000 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMaladiePro = 0
                        AbsenceMaladiePro = 0
                        End If
                        If TotalCongePaternite <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePaternite 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1050 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePaternite = 0
                        CongePaternite = 0
                        End If
                        If TotalAbsenceMaternite <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaternite 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MT" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1010 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMaternite = 0
                        AbsenceMaternite = 0
                        End If
                        'ATTENTION CODE ABSENCE(motif) A OBTENIR POUR CELUI CI
                        If TotalAbsenceMiTempsTherapeuthique <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMiTempsTherapeuthique 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 440 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMiTempsTherapeuthique = 0
                        AbsenceMiTempsTherapeuthique = 0
                        End If
                        'ATTENTION CODE ABSENCE(motif) A VERIFIER POUR CELUI CI
                        If TotalCongePaye <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePaye 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 950 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePaye = 0
                        CongePaye = 0
                        End If
                        'Ne rentre peut tre pas en compte comme une absence mais comme un droit
                        If TotalJourFerie <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalJourFerie 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 0 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalJourFerie = 0
                        JourFerie = 0
                        
                        End If
                        'ATTENTION CODE ABSENCE(motif) A OBTENIR POUR CELUI CI
                        If TotalRTT <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalRTT 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 3000 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalRTT = 0
                        RTT = 0
                        End If
                        
                        If TotalCongeAdoption = 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 9).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de dbut
                        Else
                        CongeAdoption = Sheets("pointage 2017 2018").Cells(2 + a, 4 + b).Value
                        TotalCongeAdoption = TotalCongeAdoption + CongeAdoption
                        End If
                        
                        
        'Calcul du total des Congs pour convenance personnelle*********************************************************
        
        
                        Case Is = "Cong pour convenance personnelle"
                        
                        If TotalCongeSansSolde <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeSansSolde 'on met le total du conge sans solde
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CS" 'on met le code du motif , ici conge sans solde
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 980 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeSansSolde = 0
                        CongeSansSolde = 0
                        End If
                        
                        If TotalAccidentDeTravailAvecArret <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAccidentDeTravailAvecArret 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "AT" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 990 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAccidentDeTravailAvecArret = 0
                        AccidentDeTravailAvecArret = 0
                        End If
                        
                        If TotalAccidentDeTrajet <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAccidentDeTrajet 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "ATR" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1040 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAccidentDeTrajet = 0
                        AccidentDeTrajet = 0
                        End If
                        
                        If TotalCongeAdoption <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeAdoption 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CAD" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 410 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeAdoption = 0
                        CongeAdoption = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                        If TotalCongeFormationPro <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeFormationPro 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CF" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeFormationPro = 0
                        CongeFormationPro = 0
                        End If
                        'ATTENTION CODE NATURE A VERIFER POUR CELUI CI
                        If TotalCongepayeNonRemunereParEmployeur <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongepayeNonRemunereParEmployeur 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CNR" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongepayeNonRemunereParEmployeur = 0
                        CongepayeNonRemunereParEmployeur = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI et CODE ABSENCE(motif)
                        If TotalCongeAnciennete <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeAnciennete 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "a mettre" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeAnciennete = 0
                        CongeAnciennete = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                        If TotalCongeParental <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeParental 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CPA" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeParental = 0
                        CongeParental = 0
                        End If
                        'ATTENTION CODE NATURE A VERIFER POUR CELUI CI
                        If TotalCongePresenceParental <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePresenceParental 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CPP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1060 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePresenceParental = 0
                        CongePresenceParental = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                        If TotalFemmeEnceinteDispenseDeTravail <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalFemmeEnceinteDispenseDeTravail 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "FENC" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 0 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalFemmeEnceinteDispenseDeTravail = 0
                        FemmeEnceinteDispenseDeTravail = 0
                        End If
                        If TotalAbsenceMaladie <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaladie 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MA" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 960 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMaladie = 0
                        AbsenceMaladie = 0
                        End If
                        If TotalAbsenceMaladiePro <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaladiePro 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MAP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1000 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMaladiePro = 0
                        AbsenceMaladiePro = 0
                        End If
                        If TotalCongePaternite <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePaternite 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1050 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePaternite = 0
                        CongePaternite = 0
                        End If
                        If TotalAbsenceMaternite <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaternite 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MT" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1010 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMaternite = 0
                        AbsenceMaternite = 0
                        End If
                        'ATTENTION CODE ABSENCE(motif) A OBTENIR POUR CELUI CI
                        If TotalAbsenceMiTempsTherapeuthique <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMiTempsTherapeuthique 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 440 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMiTempsTherapeuthique = 0
                        AbsenceMiTempsTherapeuthique = 0
                        End If
                        'ATTENTION CODE ABSENCE(motif) A VERIFIER POUR CELUI CI
                        If TotalCongePaye <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePaye 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 950 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePaye = 0
                        CongePaye = 0
                        End If
                        'Ne rentre peut tre pas en compte comme une absence mais comme un droit
                        If TotalJourFerie <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalJourFerie 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 0 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalJourFerie = 0
                        JourFerie = 0
                        
                        End If
                        'ATTENTION CODE ABSENCE(motif) A OBTENIR POUR CELUI CI
                        If TotalRTT <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalRTT 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 3000 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalRTT = 0
                        RTT = 0
                        End If
                        
                        If TotalCongePourConvenancePersonnelle = 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 9).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de dbut
                        Else
                        CongePourConvenancePersonnelle = Sheets("pointage 2017 2018").Cells(2 + a, 4 + b).Value
                        TotalCongePourConvenancePersonnelle = TotalCongePourConvenancePersonnelle + CongePourConvenancePersonnelle
                        End If
                        
                        
        'Calcul du total des Congs formation pro**********************************************************************
        
        
                        Case Is = "Cong formation pro"
                        
                        If TotalCongeSansSolde <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeSansSolde 'on met le total du conge sans solde
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CS" 'on met le code du motif , ici conge sans solde
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 980 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeSansSolde = 0
                        CongeSansSolde = 0
                        End If
                        
                        If TotalAccidentDeTravailAvecArret <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAccidentDeTravailAvecArret 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "AT" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 990 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAccidentDeTravailAvecArret = 0
                        AccidentDeTravailAvecArret = 0
                        End If
                        
                        If TotalAccidentDeTrajet <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAccidentDeTrajet 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "ATR" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1040 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAccidentDeTrajet = 0
                        AccidentDeTrajet = 0
                        End If
                        
                        If TotalCongeAdoption <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeAdoption 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CAD" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 410 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeAdoption = 0
                        CongeAdoption = 0
                        End If
                        If TotalCongePourConvenancePersonnelle <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePourConvenancePersonnelle 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CCP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 980 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePourConvenancePersonnelle = 0
                        CongePourConvenancePersonnelle = 0
                        End If
                        'ATTENTION CODE NATURE A VERIFER POUR CELUI CI
                        If TotalCongepayeNonRemunereParEmployeur <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongepayeNonRemunereParEmployeur 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CNR" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongepayeNonRemunereParEmployeur = 0
                        CongepayeNonRemunereParEmployeur = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI et CODE ABSENCE(motif)
                        If TotalCongeAnciennete <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeAnciennete 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "a mettre" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeAnciennete = 0
                        CongeAnciennete = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                        If TotalCongeParental <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeParental 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CPA" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeParental = 0
                        CongeParental = 0
                        End If
                        'ATTENTION CODE NATURE A VERIFER POUR CELUI CI
                        If TotalCongePresenceParental <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePresenceParental 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CPP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1060 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePresenceParental = 0
                        CongePresenceParental = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                        If TotalFemmeEnceinteDispenseDeTravail <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalFemmeEnceinteDispenseDeTravail 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "FENC" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 0 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalFemmeEnceinteDispenseDeTravail = 0
                        FemmeEnceinteDispenseDeTravail = 0
                        End If
                        If TotalAbsenceMaladie <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaladie 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MA" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 960 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMaladie = 0
                        AbsenceMaladie = 0
                        End If
                        If TotalAbsenceMaladiePro <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaladiePro 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MAP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1000 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMaladiePro = 0
                        AbsenceMaladiePro = 0
                        End If
                        If TotalCongePaternite <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePaternite 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1050 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePaternite = 0
                        CongePaternite = 0
                        End If
                        If TotalAbsenceMaternite <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaternite 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MT" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1010 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMaternite = 0
                        AbsenceMaternite = 0
                        End If
                        'ATTENTION CODE ABSENCE(motif) A OBTENIR POUR CELUI CI
                        If TotalAbsenceMiTempsTherapeuthique <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMiTempsTherapeuthique 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 440 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMiTempsTherapeuthique = 0
                        AbsenceMiTempsTherapeuthique = 0
                        End If
                        'ATTENTION CODE ABSENCE(motif) A VERIFIER POUR CELUI CI
                        If TotalCongePaye <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePaye 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 950 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePaye = 0
                        CongePaye = 0
                        End If
                        'Ne rentre peut tre pas en compte comme une absence mais comme un droit
                        If TotalJourFerie <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalJourFerie 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 0 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalJourFerie = 0
                        JourFerie = 0
                        
                        End If
                        'ATTENTION CODE ABSENCE(motif) A OBTENIR POUR CELUI CI
                        If TotalRTT <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalRTT 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 3000 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalRTT = 0
                        RTT = 0
                        End If
                        
                        If TotalCongeFormationPro = 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 9).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de dbut
                        Else
                        CongeFormationPro = Sheets("pointage 2017 2018").Cells(2 + a, 4 + b).Value
                        TotalCongeFormationPro = TotalCongeFormationPro + CongeFormationPro
                        End If
                        
                        
        'Calcul du total des Congs pay non rmunr par lemployeur**************************************************
             
             
                        Case Is = "Cong pay non rmunr par lemployeur"
                        
                        If TotalCongeSansSolde <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeSansSolde 'on met le total du conge sans solde
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CS" 'on met le code du motif , ici conge sans solde
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 980 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeSansSolde = 0
                        CongeSansSolde = 0
                        End If
                        
                        If TotalAccidentDeTravailAvecArret <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAccidentDeTravailAvecArret 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "AT" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 990 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAccidentDeTravailAvecArret = 0
                        AccidentDeTravailAvecArret = 0
                        End If
                        
                        If TotalAccidentDeTrajet <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAccidentDeTrajet 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "ATR" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1040 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAccidentDeTrajet = 0
                        AccidentDeTrajet = 0
                        End If
                        
                        If TotalCongeAdoption <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeAdoption 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CAD" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 410 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeAdoption = 0
                        CongeAdoption = 0
                        End If
                        If TotalCongePourConvenancePersonnelle <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePourConvenancePersonnelle 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CCP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 980 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePourConvenancePersonnelle = 0
                        CongePourConvenancePersonnelle = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                        If TotalCongeFormationPro <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeFormationPro 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CF" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeFormationPro = 0
                        CongeFormationPro = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI et CODE ABSENCE(motif)
                        If TotalCongeAnciennete <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeAnciennete 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "a mettre" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeAnciennete = 0
                        CongeAnciennete = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                        If TotalCongeParental <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeParental 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CPA" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeParental = 0
                        CongeParental = 0
                        End If
                        'ATTENTION CODE NATURE A VERIFER POUR CELUI CI
                        If TotalCongePresenceParental <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePresenceParental 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CPP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1060 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePresenceParental = 0
                        CongePresenceParental = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                        If TotalFemmeEnceinteDispenseDeTravail <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalFemmeEnceinteDispenseDeTravail 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "FENC" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 0 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalFemmeEnceinteDispenseDeTravail = 0
                        FemmeEnceinteDispenseDeTravail = 0
                        End If
                        If TotalAbsenceMaladie <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaladie 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MA" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 960 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMaladie = 0
                        AbsenceMaladie = 0
                        End If
                        If TotalAbsenceMaladiePro <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaladiePro 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MAP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1000 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMaladiePro = 0
                        AbsenceMaladiePro = 0
                        End If
                        If TotalCongePaternite <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePaternite 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1050 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePaternite = 0
                        CongePaternite = 0
                        End If
                        If TotalAbsenceMaternite <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaternite 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MT" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1010 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMaternite = 0
                        AbsenceMaternite = 0
                        End If
                        'ATTENTION CODE ABSENCE(motif) A OBTENIR POUR CELUI CI
                        If TotalAbsenceMiTempsTherapeuthique <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMiTempsTherapeuthique 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 440 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMiTempsTherapeuthique = 0
                        AbsenceMiTempsTherapeuthique = 0
                        End If
                        'ATTENTION CODE ABSENCE(motif) A VERIFIER POUR CELUI CI
                        If TotalCongePaye <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePaye 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 950 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePaye = 0
                        CongePaye = 0
                        End If
                        'Ne rentre peut tre pas en compte comme une absence mais comme un droit
                        If TotalJourFerie <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalJourFerie 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 0 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalJourFerie = 0
                        JourFerie = 0
                        
                        End If
                        'ATTENTION CODE ABSENCE(motif) A OBTENIR POUR CELUI CI
                        If TotalRTT <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalRTT 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 3000 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalRTT = 0
                        RTT = 0
                        End If
                        
                        If TotalCongepayeNonRemunereParEmployeur = 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 9).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de dbut
                        Else
                        CongepayeNonRemunereParEmployeur = Sheets("pointage 2017 2018").Cells(2 + a, 4 + b).Value
                        TotalCongepayeNonRemunereParEmployeur = TotalCongepayeNonRemunereParEmployeur + CongepayeNonRemunereParEmployeur
                        End If
                        
                        
        'Calcul du total des Congs d'anciennet***********************************************************************
             
             
                        Case Is = "Cong d'anciennet"
                        
                        If TotalCongeSansSolde <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeSansSolde 'on met le total du conge sans solde
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CS" 'on met le code du motif , ici conge sans solde
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 980 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeSansSolde = 0
                        CongeSansSolde = 0
                        End If
                        
                        If TotalAccidentDeTravailAvecArret <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAccidentDeTravailAvecArret 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "AT" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 990 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAccidentDeTravailAvecArret = 0
                        AccidentDeTravailAvecArret = 0
                        End If
                        
                        If TotalAccidentDeTrajet <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAccidentDeTrajet 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "ATR" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1040 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAccidentDeTrajet = 0
                        AccidentDeTrajet = 0
                        End If
                        
                        If TotalCongeAdoption <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeAdoption 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CAD" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 410 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeAdoption = 0
                        CongeAdoption = 0
                        End If
                        If TotalCongePourConvenancePersonnelle <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePourConvenancePersonnelle 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CCP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 980 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePourConvenancePersonnelle = 0
                        CongePourConvenancePersonnelle = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                        If TotalCongeFormationPro <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeFormationPro 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CF" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeFormationPro = 0
                        CongeFormationPro = 0
                        End If
                        'ATTENTION CODE NATURE A VERIFER POUR CELUI CI
                        If TotalCongepayeNonRemunereParEmployeur <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongepayeNonRemunereParEmployeur 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CNR" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongepayeNonRemunereParEmployeur = 0
                        CongepayeNonRemunereParEmployeur = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                        If TotalCongeParental <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeParental 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CPA" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeParental = 0
                        CongeParental = 0
                        End If
                        'ATTENTION CODE NATURE A VERIFER POUR CELUI CI
                        If TotalCongePresenceParental <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePresenceParental 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CPP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1060 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePresenceParental = 0
                        CongePresenceParental = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                        If TotalFemmeEnceinteDispenseDeTravail <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalFemmeEnceinteDispenseDeTravail 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "FENC" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 0 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalFemmeEnceinteDispenseDeTravail = 0
                        FemmeEnceinteDispenseDeTravail = 0
                        End If
                        If TotalAbsenceMaladie <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaladie 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MA" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 960 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMaladie = 0
                        AbsenceMaladie = 0
                        End If
                        If TotalAbsenceMaladiePro <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaladiePro 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MAP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1000 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMaladiePro = 0
                        AbsenceMaladiePro = 0
                        End If
                        If TotalCongePaternite <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePaternite 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1050 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePaternite = 0
                        CongePaternite = 0
                        End If
                        If TotalAbsenceMaternite <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaternite 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MT" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1010 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMaternite = 0
                        AbsenceMaternite = 0
                        End If
                        'ATTENTION CODE ABSENCE(motif) A OBTENIR POUR CELUI CI
                        If TotalAbsenceMiTempsTherapeuthique <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMiTempsTherapeuthique 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 440 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMiTempsTherapeuthique = 0
                        AbsenceMiTempsTherapeuthique = 0
                        End If
                        'ATTENTION CODE ABSENCE(motif) A VERIFIER POUR CELUI CI
                        If TotalCongePaye <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePaye 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 950 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePaye = 0
                        CongePaye = 0
                        End If
                        'Ne rentre peut tre pas en compte comme une absence mais comme un droit
                        If TotalJourFerie <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalJourFerie 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 0 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalJourFerie = 0
                        JourFerie = 0
                        
                        End If
                        'ATTENTION CODE ABSENCE(motif) A OBTENIR POUR CELUI CI
                        If TotalRTT <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalRTT 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 3000 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalRTT = 0
                        RTT = 0
                        End If
                        
                        If TotalCongeAnciennete = 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 9).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de dbut
                        Else
                        CongeAnciennete = Sheets("pointage 2017 2018").Cells(2 + a, 4 + b).Value
                        TotalCongeAnciennete = TotalCongeAnciennete + CongeAnciennete
                        End If
                        
                        
        'Calcul du total des Congs parental***************************************************************************
             
             
                        Case Is = "Cong parental"
                        
                        If TotalCongeSansSolde <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeSansSolde 'on met le total du conge sans solde
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CS" 'on met le code du motif , ici conge sans solde
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 980 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeSansSolde = 0
                        CongeSansSolde = 0
                        End If
                        
                        If TotalAccidentDeTravailAvecArret <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAccidentDeTravailAvecArret 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "AT" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 990 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAccidentDeTravailAvecArret = 0
                        AccidentDeTravailAvecArret = 0
                        End If
                        
                        If TotalAccidentDeTrajet <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAccidentDeTrajet 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "ATR" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1040 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAccidentDeTrajet = 0
                        AccidentDeTrajet = 0
                        End If
                        
                        If TotalCongeAdoption <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeAdoption 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CAD" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 410 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeAdoption = 0
                        CongeAdoption = 0
                        End If
                        If TotalCongePourConvenancePersonnelle <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePourConvenancePersonnelle 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CCP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 980 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePourConvenancePersonnelle = 0
                        CongePourConvenancePersonnelle = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                        If TotalCongeFormationPro <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeFormationPro 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CF" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeFormationPro = 0
                        CongeFormationPro = 0
                        End If
                        'ATTENTION CODE NATURE A VERIFER POUR CELUI CI
                        If TotalCongepayeNonRemunereParEmployeur <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongepayeNonRemunereParEmployeur 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CNR" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongepayeNonRemunereParEmployeur = 0
                        CongepayeNonRemunereParEmployeur = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI et CODE ABSENCE(motif)
                        If TotalCongeAnciennete <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeAnciennete 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "a mettre" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeAnciennete = 0
                        CongeAnciennete = 0
                        End If
                        'ATTENTION CODE NATURE A VERIFER POUR CELUI CI
                        If TotalCongePresenceParental <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePresenceParental 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CPP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1060 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePresenceParental = 0
                        CongePresenceParental = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                        If TotalFemmeEnceinteDispenseDeTravail <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalFemmeEnceinteDispenseDeTravail 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "FENC" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 0 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalFemmeEnceinteDispenseDeTravail = 0
                        FemmeEnceinteDispenseDeTravail = 0
                        End If
                        If TotalAbsenceMaladie <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaladie 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MA" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 960 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMaladie = 0
                        AbsenceMaladie = 0
                        End If
                        If TotalAbsenceMaladiePro <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaladiePro 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MAP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1000 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMaladiePro = 0
                        AbsenceMaladiePro = 0
                        End If
                        If TotalCongePaternite <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePaternite 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1050 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePaternite = 0
                        CongePaternite = 0
                        End If
                        If TotalAbsenceMaternite <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaternite 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MT" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1010 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMaternite = 0
                        AbsenceMaternite = 0
                        End If
                        'ATTENTION CODE ABSENCE(motif) A OBTENIR POUR CELUI CI
                        If TotalAbsenceMiTempsTherapeuthique <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMiTempsTherapeuthique 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 440 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMiTempsTherapeuthique = 0
                        AbsenceMiTempsTherapeuthique = 0
                        End If
                        'ATTENTION CODE ABSENCE(motif) A VERIFIER POUR CELUI CI
                        If TotalCongePaye <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePaye 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 950 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePaye = 0
                        CongePaye = 0
                        End If
                        'Ne rentre peut tre pas en compte comme une absence mais comme un droit
                        If TotalJourFerie <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalJourFerie 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 0 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalJourFerie = 0
                        JourFerie = 0
                        
                        End If
                        'ATTENTION CODE ABSENCE(motif) A OBTENIR POUR CELUI CI
                        If TotalRTT <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalRTT 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 3000 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalRTT = 0
                        RTT = 0
                        End If
                        
                        If TotalCongeParental = 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 9).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de dbut
                        Else
                        CongeParental = Sheets("pointage 2017 2018").Cells(2 + a, 4 + b).Value
                        TotalCongeParental = TotalCongeParental + CongeParental
                        End If
                        
                        
        'Calcul du total des Congs de prsence parental***************************************************************
        
        
                        Case Is = "Cong de prsence parental"
                        
                        If TotalCongeSansSolde <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeSansSolde 'on met le total du conge sans solde
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CS" 'on met le code du motif , ici conge sans solde
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 980 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeSansSolde = 0
                        CongeSansSolde = 0
                        End If
                        
                        If TotalAccidentDeTravailAvecArret <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAccidentDeTravailAvecArret 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "AT" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 990 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAccidentDeTravailAvecArret = 0
                        AccidentDeTravailAvecArret = 0
                        End If
                        
                        If TotalAccidentDeTrajet <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAccidentDeTrajet 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "ATR" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1040 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAccidentDeTrajet = 0
                        AccidentDeTrajet = 0
                        End If
                        
                        If TotalCongeAdoption <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeAdoption 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CAD" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 410 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeAdoption = 0
                        CongeAdoption = 0
                        End If
                        If TotalCongePourConvenancePersonnelle <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePourConvenancePersonnelle 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CCP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 980 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePourConvenancePersonnelle = 0
                        CongePourConvenancePersonnelle = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                        If TotalCongeFormationPro <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeFormationPro 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CF" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeFormationPro = 0
                        CongeFormationPro = 0
                        End If
                        'ATTENTION CODE NATURE A VERIFER POUR CELUI CI
                        If TotalCongepayeNonRemunereParEmployeur <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongepayeNonRemunereParEmployeur 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CNR" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongepayeNonRemunereParEmployeur = 0
                        CongepayeNonRemunereParEmployeur = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI et CODE ABSENCE(motif)
                        If TotalCongeAnciennete <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeAnciennete 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "a mettre" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeAnciennete = 0
                        CongeAnciennete = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                        If TotalCongeParental <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeParental 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CPA" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeParental = 0
                        CongeParental = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                        If TotalFemmeEnceinteDispenseDeTravail <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalFemmeEnceinteDispenseDeTravail 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "FENC" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 0 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalFemmeEnceinteDispenseDeTravail = 0
                        FemmeEnceinteDispenseDeTravail = 0
                        End If
                        If TotalAbsenceMaladie <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaladie 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MA" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 960 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMaladie = 0
                        AbsenceMaladie = 0
                        End If
                        If TotalAbsenceMaladiePro <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaladiePro 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MAP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1000 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMaladiePro = 0
                        AbsenceMaladiePro = 0
                        End If
                        If TotalCongePaternite <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePaternite 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1050 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePaternite = 0
                        CongePaternite = 0
                        End If
                        If TotalAbsenceMaternite <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaternite 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MT" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1010 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMaternite = 0
                        AbsenceMaternite = 0
                        End If
                        'ATTENTION CODE ABSENCE(motif) A OBTENIR POUR CELUI CI
                        If TotalAbsenceMiTempsTherapeuthique <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMiTempsTherapeuthique 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 440 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMiTempsTherapeuthique = 0
                        AbsenceMiTempsTherapeuthique = 0
                        End If
                        'ATTENTION CODE ABSENCE(motif) A VERIFIER POUR CELUI CI
                        If TotalCongePaye <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePaye 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 950 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePaye = 0
                        CongePaye = 0
                        End If
                        'Ne rentre peut tre pas en compte comme une absence mais comme un droit
                        If TotalJourFerie <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalJourFerie 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 0 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalJourFerie = 0
                        JourFerie = 0
                        
                        End If
                        'ATTENTION CODE ABSENCE(motif) A OBTENIR POUR CELUI CI
                        If TotalRTT <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalRTT 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 3000 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalRTT = 0
                        RTT = 0
                        End If
                        
                        If TotalCongePresenceParental = 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 9).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de dbut
                        Else
                        CongePresenceParental = Sheets("pointage 2017 2018").Cells(2 + a, 4 + b).Value
                        TotalCongePresenceParental = TotalCongePresenceParental + CongePresenceParental
                        End If
                        
                        
        'Calcul du total de Femme enceinte dispense de travail********************************************************
        
        
                        Case Is = "Femme enceinte dispense de travail"
                        
                        If TotalCongeSansSolde <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeSansSolde 'on met le total du conge sans solde
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CS" 'on met le code du motif , ici conge sans solde
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 980 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeSansSolde = 0
                        CongeSansSolde = 0
                        End If
                        
                        If TotalAccidentDeTravailAvecArret <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAccidentDeTravailAvecArret 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "AT" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 990 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAccidentDeTravailAvecArret = 0
                        AccidentDeTravailAvecArret = 0
                        End If
                        
                        If TotalAccidentDeTrajet <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAccidentDeTrajet 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "ATR" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1040 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAccidentDeTrajet = 0
                        AccidentDeTrajet = 0
                        End If
                        
                        If TotalCongeAdoption <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeAdoption 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CAD" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 410 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeAdoption = 0
                        CongeAdoption = 0
                        End If
                        If TotalCongePourConvenancePersonnelle <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePourConvenancePersonnelle 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CCP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 980 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePourConvenancePersonnelle = 0
                        CongePourConvenancePersonnelle = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                        If TotalCongeFormationPro <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeFormationPro 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CF" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeFormationPro = 0
                        CongeFormationPro = 0
                        End If
                        'ATTENTION CODE NATURE A VERIFER POUR CELUI CI
                        If TotalCongepayeNonRemunereParEmployeur <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongepayeNonRemunereParEmployeur 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CNR" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongepayeNonRemunereParEmployeur = 0
                        CongepayeNonRemunereParEmployeur = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI et CODE ABSENCE(motif)
                        If TotalCongeAnciennete <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeAnciennete 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "a mettre" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeAnciennete = 0
                        CongeAnciennete = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                        If TotalCongeParental <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeParental 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CPA" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeParental = 0
                        CongeParental = 0
                        End If
                        'ATTENTION CODE NATURE A VERIFER POUR CELUI CI
                        If TotalCongePresenceParental <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePresenceParental 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CPP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1060 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePresenceParental = 0
                        CongePresenceParental = 0
                        End If
                        If TotalAbsenceMaladie <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaladie 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MA" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 960 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMaladie = 0
                        AbsenceMaladie = 0
                        End If
                        If TotalAbsenceMaladiePro <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaladiePro 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MAP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1000 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMaladiePro = 0
                        AbsenceMaladiePro = 0
                        End If
                        If TotalCongePaternite <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePaternite 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1050 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePaternite = 0
                        CongePaternite = 0
                        End If
                        If TotalAbsenceMaternite <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaternite 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MT" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1010 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMaternite = 0
                        AbsenceMaternite = 0
                        End If
                        'ATTENTION CODE ABSENCE(motif) A OBTENIR POUR CELUI CI
                        If TotalAbsenceMiTempsTherapeuthique <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMiTempsTherapeuthique 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 440 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMiTempsTherapeuthique = 0
                        AbsenceMiTempsTherapeuthique = 0
                        End If
                        'ATTENTION CODE ABSENCE(motif) A VERIFIER POUR CELUI CI
                        If TotalCongePaye <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePaye 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 950 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePaye = 0
                        CongePaye = 0
                        End If
                        'Ne rentre peut tre pas en compte comme une absence mais comme un droit
                        If TotalJourFerie <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalJourFerie 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 0 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalJourFerie = 0
                        JourFerie = 0
                        
                        End If
                        'ATTENTION CODE ABSENCE(motif) A OBTENIR POUR CELUI CI
                        If TotalRTT <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalRTT 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 3000 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalRTT = 0
                        RTT = 0
                        End If
                        
                        If TotalFemmeEnceinteDispenseDeTravail = 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 9).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de dbut
                        Else
                        FemmeEnceinteDispenseDeTravail = Sheets("pointage 2017 2018").Cells(2 + a, 4 + b).Value
                        TotalFemmeEnceinteDispenseDeTravail = TotalFemmeEnceinteDispenseDeTravail + FemmeEnceinteDispenseDeTravail
                        End If
                        
                        
        'Calcul du total des Absence maladie***************************************************************************
        
        
                        Case Is = "Absence maladie"
                        
                        If TotalCongeSansSolde <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeSansSolde 'on met le total du conge sans solde
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CS" 'on met le code du motif , ici conge sans solde
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 980 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeSansSolde = 0
                        CongeSansSolde = 0
                        End If
                        
                        If TotalAccidentDeTravailAvecArret <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAccidentDeTravailAvecArret 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "AT" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 990 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAccidentDeTravailAvecArret = 0
                        AccidentDeTravailAvecArret = 0
                        End If
                        
                        If TotalAccidentDeTrajet <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAccidentDeTrajet 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "ATR" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1040 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAccidentDeTrajet = 0
                        AccidentDeTrajet = 0
                        End If
                        
                        If TotalCongeAdoption <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeAdoption 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CAD" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 410 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeAdoption = 0
                        CongeAdoption = 0
                        End If
                        If TotalCongePourConvenancePersonnelle <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePourConvenancePersonnelle 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CCP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 980 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePourConvenancePersonnelle = 0
                        CongePourConvenancePersonnelle = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                        If TotalCongeFormationPro <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeFormationPro 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CF" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeFormationPro = 0
                        CongeFormationPro = 0
                        End If
                        'ATTENTION CODE NATURE A VERIFER POUR CELUI CI
                        If TotalCongepayeNonRemunereParEmployeur <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongepayeNonRemunereParEmployeur 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CNR" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongepayeNonRemunereParEmployeur = 0
                        CongepayeNonRemunereParEmployeur = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI et CODE ABSENCE(motif)
                        If TotalCongeAnciennete <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeAnciennete 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "a mettre" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeAnciennete = 0
                        CongeAnciennete = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                        If TotalCongeParental <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeParental 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CPA" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeParental = 0
                        CongeParental = 0
                        End If
                        'ATTENTION CODE NATURE A VERIFER POUR CELUI CI
                        If TotalCongePresenceParental <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePresenceParental 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CPP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1060 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePresenceParental = 0
                        CongePresenceParental = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                        If TotalFemmeEnceinteDispenseDeTravail <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalFemmeEnceinteDispenseDeTravail 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "FENC" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 0 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalFemmeEnceinteDispenseDeTravail = 0
                        FemmeEnceinteDispenseDeTravail = 0
                        End If
                        If TotalAbsenceMaladiePro <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaladiePro 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MAP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1000 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMaladiePro = 0
                        AbsenceMaladiePro = 0
                        End If
                        If TotalCongePaternite <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePaternite 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1050 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePaternite = 0
                        CongePaternite = 0
                        End If
                        If TotalAbsenceMaternite <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaternite 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MT" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1010 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMaternite = 0
                        AbsenceMaternite = 0
                        End If
                        'ATTENTION CODE ABSENCE(motif) A OBTENIR POUR CELUI CI
                        If TotalAbsenceMiTempsTherapeuthique <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMiTempsTherapeuthique 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 440 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMiTempsTherapeuthique = 0
                        AbsenceMiTempsTherapeuthique = 0
                        End If
                        'ATTENTION CODE ABSENCE(motif) A VERIFIER POUR CELUI CI
                        If TotalCongePaye <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePaye 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 950 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePaye = 0
                        CongePaye = 0
                        End If
                        'Ne rentre peut tre pas en compte comme une absence mais comme un droit
                        If TotalJourFerie <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalJourFerie 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 0 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalJourFerie = 0
                        JourFerie = 0
                        
                        End If
                        'ATTENTION CODE ABSENCE(motif) A OBTENIR POUR CELUI CI
                        If TotalRTT <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalRTT 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 3000 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalRTT = 0
                        RTT = 0
                        End If
                        
                        If TotalAbsenceMaladie = 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 9).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de dbut
                        Else
                        AbsenceMaladie = Sheets("pointage 2017 2018").Cells(2 + a, 4 + b).Value
                        TotalAbsenceMaladie = TotalAbsenceMaladie + AbsenceMaladie
                        End If
                        
                        
        'Calcul du total des Absence maladie pro***********************************************************************
        
        
                        Case Is = "Absence maladie pro"
                        
                        If TotalCongeSansSolde <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeSansSolde 'on met le total du conge sans solde
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CS" 'on met le code du motif , ici conge sans solde
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 980 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeSansSolde = 0
                        CongeSansSolde = 0
                        End If
                        
                        If TotalAccidentDeTravailAvecArret <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAccidentDeTravailAvecArret 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "AT" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 990 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAccidentDeTravailAvecArret = 0
                        AccidentDeTravailAvecArret = 0
                        End If
                        
                        If TotalAccidentDeTrajet <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAccidentDeTrajet 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "ATR" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1040 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAccidentDeTrajet = 0
                        AccidentDeTrajet = 0
                        End If
                        
                        If TotalCongeAdoption <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeAdoption 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CAD" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 410 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeAdoption = 0
                        CongeAdoption = 0
                        End If
                        If TotalCongePourConvenancePersonnelle <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePourConvenancePersonnelle 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CCP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 980 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePourConvenancePersonnelle = 0
                        CongePourConvenancePersonnelle = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                        If TotalCongeFormationPro <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeFormationPro 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CF" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeFormationPro = 0
                        CongeFormationPro = 0
                        End If
                        'ATTENTION CODE NATURE A VERIFER POUR CELUI CI
                        If TotalCongepayeNonRemunereParEmployeur <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongepayeNonRemunereParEmployeur 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CNR" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongepayeNonRemunereParEmployeur = 0
                        CongepayeNonRemunereParEmployeur = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI et CODE ABSENCE(motif)
                        If TotalCongeAnciennete <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeAnciennete 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "a mettre" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeAnciennete = 0
                        CongeAnciennete = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                        If TotalCongeParental <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeParental 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CPA" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeParental = 0
                        CongeParental = 0
                        End If
                        'ATTENTION CODE NATURE A VERIFER POUR CELUI CI
                        If TotalCongePresenceParental <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePresenceParental 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CPP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1060 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePresenceParental = 0
                        CongePresenceParental = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                        If TotalFemmeEnceinteDispenseDeTravail <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalFemmeEnceinteDispenseDeTravail 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "FENC" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 0 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalFemmeEnceinteDispenseDeTravail = 0
                        FemmeEnceinteDispenseDeTravail = 0
                        End If
                        If TotalAbsenceMaladie <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaladie 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MA" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 960 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMaladie = 0
                        AbsenceMaladie = 0
                        End If
                        If TotalCongePaternite <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePaternite 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1050 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePaternite = 0
                        CongePaternite = 0
                        End If
                        If TotalAbsenceMaternite <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaternite 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MT" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1010 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMaternite = 0
                        AbsenceMaternite = 0
                        End If
                        'ATTENTION CODE ABSENCE(motif) A OBTENIR POUR CELUI CI
                        If TotalAbsenceMiTempsTherapeuthique <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMiTempsTherapeuthique 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 440 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMiTempsTherapeuthique = 0
                        AbsenceMiTempsTherapeuthique = 0
                        End If
                        'ATTENTION CODE ABSENCE(motif) A VERIFIER POUR CELUI CI
                        If TotalCongePaye <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePaye 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 950 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePaye = 0
                        CongePaye = 0
                        End If
                        'Ne rentre peut tre pas en compte comme une absence mais comme un droit
                        If TotalJourFerie <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalJourFerie 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 0 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalJourFerie = 0
                        JourFerie = 0
                        
                        End If
                        'ATTENTION CODE ABSENCE(motif) A OBTENIR POUR CELUI CI
                        If TotalRTT <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalRTT 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 3000 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalRTT = 0
                        RTT = 0
                        End If
                        
                        If TotalAbsenceMaladiePro = 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 9).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de dbut
                        Else
                        AbsenceMaladiePro = Sheets("pointage 2017 2018").Cells(2 + a, 4 + b).Value
                        TotalAbsenceMaladiePro = TotalAbsenceMaladiePro + AbsenceMaladiePro
                        End If
                        
                        
        'Calcul du total des Cong paternit***************************************************************************
        
        
                        Case Is = "Cong paternit"
                        
                        If TotalCongeSansSolde <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeSansSolde 'on met le total du conge sans solde
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CS" 'on met le code du motif , ici conge sans solde
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 980 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeSansSolde = 0
                        CongeSansSolde = 0
                        End If
                        
                        If TotalAccidentDeTravailAvecArret <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAccidentDeTravailAvecArret 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "AT" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 990 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAccidentDeTravailAvecArret = 0
                        AccidentDeTravailAvecArret = 0
                        End If
                        
                        If TotalAccidentDeTrajet <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAccidentDeTrajet 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "ATR" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1040 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAccidentDeTrajet = 0
                        AccidentDeTrajet = 0
                        End If
                        
                        If TotalCongeAdoption <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeAdoption 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CAD" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 410 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeAdoption = 0
                        CongeAdoption = 0
                        End If
                        If TotalCongePourConvenancePersonnelle <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePourConvenancePersonnelle 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CCP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 980 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePourConvenancePersonnelle = 0
                        CongePourConvenancePersonnelle = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                        If TotalCongeFormationPro <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeFormationPro 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CF" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeFormationPro = 0
                        CongeFormationPro = 0
                        End If
                        'ATTENTION CODE NATURE A VERIFER POUR CELUI CI
                        If TotalCongepayeNonRemunereParEmployeur <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongepayeNonRemunereParEmployeur 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CNR" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongepayeNonRemunereParEmployeur = 0
                        CongepayeNonRemunereParEmployeur = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI et CODE ABSENCE(motif)
                        If TotalCongeAnciennete <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeAnciennete 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "a mettre" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeAnciennete = 0
                        CongeAnciennete = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                        If TotalCongeParental <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeParental 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CPA" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeParental = 0
                        CongeParental = 0
                        End If
                        'ATTENTION CODE NATURE A VERIFER POUR CELUI CI
                        If TotalCongePresenceParental <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePresenceParental 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CPP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1060 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePresenceParental = 0
                        CongePresenceParental = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                        If TotalFemmeEnceinteDispenseDeTravail <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalFemmeEnceinteDispenseDeTravail 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "FENC" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 0 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalFemmeEnceinteDispenseDeTravail = 0
                        FemmeEnceinteDispenseDeTravail = 0
                        End If
                        If TotalAbsenceMaladie <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaladie 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MA" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 960 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMaladie = 0
                        AbsenceMaladie = 0
                        End If
                        If TotalAbsenceMaladiePro <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaladiePro 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MAP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1000 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMaladiePro = 0
                        AbsenceMaladiePro = 0
                        End If
                        If TotalAbsenceMaternite <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaternite 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MT" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1010 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMaternite = 0
                        AbsenceMaternite = 0
                        End If
                        'ATTENTION CODE ABSENCE(motif) A OBTENIR POUR CELUI CI
                        If TotalAbsenceMiTempsTherapeuthique <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMiTempsTherapeuthique 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 440 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMiTempsTherapeuthique = 0
                        AbsenceMiTempsTherapeuthique = 0
                        End If
                        'ATTENTION CODE ABSENCE(motif) A VERIFIER POUR CELUI CI
                        If TotalCongePaye <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePaye 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 950 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePaye = 0
                        CongePaye = 0
                        End If
                        'Ne rentre peut tre pas en compte comme une absence mais comme un droit
                        If TotalJourFerie <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalJourFerie 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 0 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalJourFerie = 0
                        JourFerie = 0
                        
                        End If
                        'ATTENTION CODE ABSENCE(motif) A OBTENIR POUR CELUI CI
                        If TotalRTT <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalRTT 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 3000 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalRTT = 0
                        RTT = 0
                        End If
                        
                        If TotalCongePaternite = 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 9).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de dbut
                        Else
                        CongePaternite = Sheets("pointage 2017 2018").Cells(2 + a, 4 + b).Value
                        TotalCongePaternite = TotalCongePaternite + CongePaternite
                        End If
                        
                        
        'Calcul du total des Absence maternit*************************************************************************
        
        
                        Case Is = "Absence maternit"
                        
                        If TotalCongeSansSolde <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeSansSolde 'on met le total du conge sans solde
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CS" 'on met le code du motif , ici conge sans solde
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 980 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeSansSolde = 0
                        CongeSansSolde = 0
                        End If
                        
                        If TotalAccidentDeTravailAvecArret <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAccidentDeTravailAvecArret 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "AT" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 990 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAccidentDeTravailAvecArret = 0
                        AccidentDeTravailAvecArret = 0
                        End If
                        
                        If TotalAccidentDeTrajet <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAccidentDeTrajet 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "ATR" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1040 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAccidentDeTrajet = 0
                        AccidentDeTrajet = 0
                        End If
                        
                        If TotalCongeAdoption <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeAdoption 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CAD" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 410 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeAdoption = 0
                        CongeAdoption = 0
                        End If
                        If TotalCongePourConvenancePersonnelle <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePourConvenancePersonnelle 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CCP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 980 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePourConvenancePersonnelle = 0
                        CongePourConvenancePersonnelle = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                        If TotalCongeFormationPro <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeFormationPro 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CF" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeFormationPro = 0
                        CongeFormationPro = 0
                        End If
                        'ATTENTION CODE NATURE A VERIFER POUR CELUI CI
                        If TotalCongepayeNonRemunereParEmployeur <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongepayeNonRemunereParEmployeur 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CNR" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongepayeNonRemunereParEmployeur = 0
                        CongepayeNonRemunereParEmployeur = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI et CODE ABSENCE(motif)
                        If TotalCongeAnciennete <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeAnciennete 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "a mettre" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeAnciennete = 0
                        CongeAnciennete = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                        If TotalCongeParental <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeParental 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CPA" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeParental = 0
                        CongeParental = 0
                        End If
                        'ATTENTION CODE NATURE A VERIFER POUR CELUI CI
                        If TotalCongePresenceParental <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePresenceParental 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CPP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1060 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePresenceParental = 0
                        CongePresenceParental = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                        If TotalFemmeEnceinteDispenseDeTravail <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalFemmeEnceinteDispenseDeTravail 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "FENC" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 0 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalFemmeEnceinteDispenseDeTravail = 0
                        FemmeEnceinteDispenseDeTravail = 0
                        End If
                        If TotalAbsenceMaladie <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaladie 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MA" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 960 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMaladie = 0
                        AbsenceMaladie = 0
                        End If
                        If TotalAbsenceMaladiePro <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaladiePro 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MAP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1000 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMaladiePro = 0
                        AbsenceMaladiePro = 0
                        End If
                        If TotalCongePaternite <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePaternite 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1050 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePaternite = 0
                        CongePaternite = 0
                        End If
                        'ATTENTION CODE ABSENCE(motif) A OBTENIR POUR CELUI CI
                        If TotalAbsenceMiTempsTherapeuthique <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMiTempsTherapeuthique 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 440 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMiTempsTherapeuthique = 0
                        AbsenceMiTempsTherapeuthique = 0
                        End If
                        'ATTENTION CODE ABSENCE(motif) A VERIFIER POUR CELUI CI
                        If TotalCongePaye <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePaye 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 950 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePaye = 0
                        CongePaye = 0
                        End If
                        'Ne rentre peut tre pas en compte comme une absence mais comme un droit
                        If TotalJourFerie <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalJourFerie 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 0 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalJourFerie = 0
                        JourFerie = 0
                        
                        End If
                        'ATTENTION CODE ABSENCE(motif) A OBTENIR POUR CELUI CI
                        If TotalRTT <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalRTT 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 3000 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalRTT = 0
                        RTT = 0
                        End If
                        
                        If TotalAbsenceMaternite = 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 9).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de dbut
                        Else
                        AbsenceMaternite = Sheets("pointage 2017 2018").Cells(2 + a, 4 + b).Value
                        TotalAbsenceMaternite = TotalAbsenceMaternite + AbsenceMaternite
                        End If
                        
                        
        'Calcul du total des Absence mi-temps thrapeuthique***********************************************************
        
        
                        Case Is = "Absence mi-temps thrapeuthique"
                        
                        If TotalCongeSansSolde <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeSansSolde 'on met le total du conge sans solde
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CS" 'on met le code du motif , ici conge sans solde
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 980 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeSansSolde = 0
                        CongeSansSolde = 0
                        End If
                        
                        If TotalAccidentDeTravailAvecArret <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAccidentDeTravailAvecArret 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "AT" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 990 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAccidentDeTravailAvecArret = 0
                        AccidentDeTravailAvecArret = 0
                        End If
                        
                        If TotalAccidentDeTrajet <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAccidentDeTrajet 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "ATR" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1040 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAccidentDeTrajet = 0
                        AccidentDeTrajet = 0
                        End If
                        
                        If TotalCongeAdoption <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeAdoption 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CAD" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 410 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeAdoption = 0
                        CongeAdoption = 0
                        End If
                        If TotalCongePourConvenancePersonnelle <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePourConvenancePersonnelle 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CCP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 980 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePourConvenancePersonnelle = 0
                        CongePourConvenancePersonnelle = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                        If TotalCongeFormationPro <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeFormationPro 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CF" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeFormationPro = 0
                        CongeFormationPro = 0
                        End If
                        'ATTENTION CODE NATURE A VERIFER POUR CELUI CI
                        If TotalCongepayeNonRemunereParEmployeur <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongepayeNonRemunereParEmployeur 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CNR" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongepayeNonRemunereParEmployeur = 0
                        CongepayeNonRemunereParEmployeur = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI et CODE ABSENCE(motif)
                        If TotalCongeAnciennete <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeAnciennete 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "a mettre" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeAnciennete = 0
                        CongeAnciennete = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                        If TotalCongeParental <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeParental 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CPA" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongeParental = 0
                        CongeParental = 0
                        End If
                        'ATTENTION CODE NATURE A VERIFER POUR CELUI CI
                        If TotalCongePresenceParental <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePresenceParental 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CPP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1060 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePresenceParental = 0
                        CongePresenceParental = 0
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                        If TotalFemmeEnceinteDispenseDeTravail <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalFemmeEnceinteDispenseDeTravail 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "FENC" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 0 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalFemmeEnceinteDispenseDeTravail = 0
                        FemmeEnceinteDispenseDeTravail = 0
                        End If
                        If TotalAbsenceMaladie <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaladie 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MA" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 960 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMaladie = 0
                        AbsenceMaladie = 0
                        End If
                        If TotalAbsenceMaladiePro <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaladiePro 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MAP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1000 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMaladiePro = 0
                        AbsenceMaladiePro = 0
                        End If
                        If TotalCongePaternite <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePaternite 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1050 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePaternite = 0
                        CongePaternite = 0
                        End If
                        If TotalAbsenceMaternite <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaternite 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MT" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1010 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalAbsenceMaternite = 0
                        AbsenceMaternite = 0
                        End If
                        'ATTENTION CODE ABSENCE(motif) A VERIFIER POUR CELUI CI
                        If TotalCongePaye <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePaye 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 950 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalCongePaye = 0
                        CongePaye = 0
                        End If
                        'Ne rentre peut tre pas en compte comme une absence mais comme un droit
                        If TotalJourFerie <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalJourFerie 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 0 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalJourFerie = 0
                        JourFerie = 0
                        
                        End If
                        'ATTENTION CODE ABSENCE(motif) A OBTENIR POUR CELUI CI
                        If TotalRTT <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalRTT 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 3000 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        TotalRTT = 0
                        RTT = 0
                        End If
                        
                        If TotalAbsenceMiTempsTherapeuthique = 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 9).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de dbut
                        Else
                        AbsenceMiTempsTherapeuthique = Sheets("pointage 2017 2018").Cells(2 + a, 4 + b).Value
                        TotalAbsenceMiTempsTherapeuthique = TotalAbsenceMiTempsTherapeuthique + AbsenceMiTempsTherapeuthique
                        End If
    
                        End Select
                        
                        
        'Calcul du total des cong pay********************************************************************************
        
        
                        If Sheets("pointage 2017 2018").Cells(2 + a, 4 + b).Interior.ColorIndex = 4 Then
                        
                            If TotalCongeSansSolde <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeSansSolde 'on met le total du conge sans solde
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CS" 'on met le code du motif , ici conge sans solde
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 980 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalCongeSansSolde = 0
                            CongeSansSolde = 0
                            End If
                            
                            If TotalAccidentDeTravailAvecArret <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAccidentDeTravailAvecArret 'on met le total
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "AT" 'on met le code du motif
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 990 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalAccidentDeTravailAvecArret = 0
                            AccidentDeTravailAvecArret = 0
                            End If
                            
                            If TotalAccidentDeTrajet <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAccidentDeTrajet 'on met le total
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "ATR" 'on met le code du motif
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1040 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalAccidentDeTrajet = 0
                            AccidentDeTrajet = 0
                            End If
                            
                            If TotalCongeAdoption <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeAdoption 'on met le total
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CAD" 'on met le code du motif
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 410 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalCongeAdoption = 0
                            CongeAdoption = 0
                            End If
                            If TotalCongePourConvenancePersonnelle <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePourConvenancePersonnelle 'on met le total
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CCP" 'on met le code du motif
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 980 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalCongePourConvenancePersonnelle = 0
                            CongePourConvenancePersonnelle = 0
                            End If
                            'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                            If TotalCongeFormationPro <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeFormationPro 'on met le total
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CF" 'on met le code du motif
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalCongeFormationPro = 0
                            CongeFormationPro = 0
                            End If
                            'ATTENTION CODE NATURE A VERIFER POUR CELUI CI
                            If TotalCongepayeNonRemunereParEmployeur <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongepayeNonRemunereParEmployeur 'on met le total
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CNR" 'on met le code du motif
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalCongepayeNonRemunereParEmployeur = 0
                            CongepayeNonRemunereParEmployeur = 0
                            End If
                            'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI et CODE ABSENCE(motif)
                            If TotalCongeAnciennete <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeAnciennete 'on met le total
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "a mettre" 'on met le code du motif
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalCongeAnciennete = 0
                            CongeAnciennete = 0
                            End If
                            'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                            If TotalCongeParental <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeParental 'on met le total
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CPA" 'on met le code du motif
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalCongeParental = 0
                            CongeParental = 0
                            End If
                            'ATTENTION CODE NATURE A VERIFER POUR CELUI CI
                            If TotalCongePresenceParental <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePresenceParental 'on met le total
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CPP" 'on met le code du motif
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1060 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalCongePresenceParental = 0
                            CongePresenceParental = 0
                            End If
                            'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                            If TotalFemmeEnceinteDispenseDeTravail <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalFemmeEnceinteDispenseDeTravail 'on met le total
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "FENC" 'on met le code du motif
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 0 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalFemmeEnceinteDispenseDeTravail = 0
                            FemmeEnceinteDispenseDeTravail = 0
                            End If
                            If TotalAbsenceMaladie <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaladie 'on met le total
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MA" 'on met le code du motif
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 960 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalAbsenceMaladie = 0
                            AbsenceMaladie = 0
                            End If
                            If TotalAbsenceMaladiePro <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaladiePro 'on met le total
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MAP" 'on met le code du motif
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1000 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalAbsenceMaladiePro = 0
                            AbsenceMaladiePro = 0
                            End If
                            If TotalCongePaternite <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePaternite 'on met le total
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MP" 'on met le code du motif
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1050 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalCongePaternite = 0
                            CongePaternite = 0
                            End If
                            If TotalAbsenceMaternite <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaternite 'on met le total
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MT" 'on met le code du motif
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1010 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalAbsenceMaternite = 0
                            AbsenceMaternite = 0
                            End If
                            'ATTENTION CODE ABSENCE(motif) A OBTENIR POUR CELUI CI
                            If TotalAbsenceMiTempsTherapeuthique <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMiTempsTherapeuthique 'on met le total
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 440 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalAbsenceMiTempsTherapeuthique = 0
                            AbsenceMiTempsTherapeuthique = 0
                            End If
                            'Ne rentre peut tre pas en compte comme une absence mais comme un droit
                            If TotalJourFerie <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalJourFerie 'on met le total
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 0 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalJourFerie = 0
                            JourFerie = 0
                            
                            End If
                            'ATTENTION CODE ABSENCE(motif) A OBTENIR POUR CELUI CI
                            If TotalRTT <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalRTT 'on met le total
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 3000 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalRTT = 0
                            RTT = 0
                            End If
                        
                            If TotalCongePaye = 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 9).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de dbut
                            Else
                            CongePaye = Sheets("pointage 2017 2018").Cells(2 + a, 4 + b).Value
                            TotalCongePaye = TotalCongePaye + CongePaye
                            End If
                        End If
                        
                        
        'Calcul du total des jours fri*******************************************************************************
        
        
                        If Sheets("pointage 2017 2018").Cells(2 + a, 4 + b).Interior.ColorIndex = 46 Then
                        
                            If TotalCongeSansSolde <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeSansSolde 'on met le total du conge sans solde
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CS" 'on met le code du motif , ici conge sans solde
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 980 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalCongeSansSolde = 0
                            CongeSansSolde = 0
                            End If
                            
                            If TotalAccidentDeTravailAvecArret <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAccidentDeTravailAvecArret 'on met le total
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "AT" 'on met le code du motif
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 990 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalAccidentDeTravailAvecArret = 0
                            AccidentDeTravailAvecArret = 0
                            End If
                            
                            If TotalAccidentDeTrajet <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAccidentDeTrajet 'on met le total
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "ATR" 'on met le code du motif
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1040 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalAccidentDeTrajet = 0
                            AccidentDeTrajet = 0
                            End If
                            
                            If TotalCongeAdoption <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeAdoption 'on met le total
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CAD" 'on met le code du motif
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 410 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalCongeAdoption = 0
                            CongeAdoption = 0
                            End If
                            If TotalCongePourConvenancePersonnelle <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePourConvenancePersonnelle 'on met le total
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CCP" 'on met le code du motif
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 980 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalCongePourConvenancePersonnelle = 0
                            CongePourConvenancePersonnelle = 0
                            End If
                            'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                            If TotalCongeFormationPro <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeFormationPro 'on met le total
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CF" 'on met le code du motif
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalCongeFormationPro = 0
                            CongeFormationPro = 0
                            End If
                            'ATTENTION CODE NATURE A VERIFER POUR CELUI CI
                            If TotalCongepayeNonRemunereParEmployeur <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongepayeNonRemunereParEmployeur 'on met le total
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CNR" 'on met le code du motif
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalCongepayeNonRemunereParEmployeur = 0
                            CongepayeNonRemunereParEmployeur = 0
                            End If
                            'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI et CODE ABSENCE(motif)
                            If TotalCongeAnciennete <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeAnciennete 'on met le total
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "a mettre" 'on met le code du motif
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalCongeAnciennete = 0
                            CongeAnciennete = 0
                            End If
                            'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                            If TotalCongeParental <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeParental 'on met le total
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CPA" 'on met le code du motif
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalCongeParental = 0
                            CongeParental = 0
                            End If
                            'ATTENTION CODE NATURE A VERIFER POUR CELUI CI
                            If TotalCongePresenceParental <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePresenceParental 'on met le total
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CPP" 'on met le code du motif
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1060 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalCongePresenceParental = 0
                            CongePresenceParental = 0
                            End If
                            'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                            If TotalFemmeEnceinteDispenseDeTravail <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalFemmeEnceinteDispenseDeTravail 'on met le total
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "FENC" 'on met le code du motif
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 0 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalFemmeEnceinteDispenseDeTravail = 0
                            FemmeEnceinteDispenseDeTravail = 0
                            End If
                            If TotalAbsenceMaladie <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaladie 'on met le total
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MA" 'on met le code du motif
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 960 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalAbsenceMaladie = 0
                            AbsenceMaladie = 0
                            End If
                            If TotalAbsenceMaladiePro <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaladiePro 'on met le total
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MAP" 'on met le code du motif
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1000 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalAbsenceMaladiePro = 0
                            AbsenceMaladiePro = 0
                            End If
                            If TotalCongePaternite <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePaternite 'on met le total
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MP" 'on met le code du motif
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1050 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalCongePaternite = 0
                            CongePaternite = 0
                            End If
                            If TotalAbsenceMaternite <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaternite 'on met le total
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MT" 'on met le code du motif
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1010 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalAbsenceMaternite = 0
                            AbsenceMaternite = 0
                            End If
                            'ATTENTION CODE ABSENCE(motif) A OBTENIR POUR CELUI CI
                            If TotalAbsenceMiTempsTherapeuthique <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMiTempsTherapeuthique 'on met le total
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 440 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalAbsenceMiTempsTherapeuthique = 0
                            AbsenceMiTempsTherapeuthique = 0
                            End If
                            'ATTENTION CODE ABSENCE(motif) A VERIFIER POUR CELUI CI
                            If TotalCongePaye <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePaye 'on met le total
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CP" 'on met le code du motif
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 950 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalCongePaye = 0
                            CongePaye = 0
                            End If
                            'ATTENTION CODE ABSENCE(motif) A OBTENIR POUR CELUI CI
                            If TotalRTT <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalRTT 'on met le total
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 3000 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalRTT = 0
                            RTT = 0
                            End If
                        
                            If TotalJourFerie = 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 9).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de dbut
                            Else
                            JourFerie = Sheets("pointage 2017 2018").Cells(2 + a, 4 + b).Value
                            TotalJourFerie = TotalJourFerie + JourFerie
                            End If
                        End If
                        
                        
        'Calcul du total des RTT***************************************************************************************
             
             
                        If Sheets("pointage 2017 2018").Cells(2 + a, 4 + b).Interior.ColorIndex = 3 Or Sheets("pointage 2017 2018").Cells(2 + a, 4 + b).Interior.ColorIndex = 8 Then
                        
                        If TotalCongeSansSolde <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeSansSolde 'on met le total du conge sans solde
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CS" 'on met le code du motif , ici conge sans solde
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 980 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalCongeSansSolde = 0
                            CongeSansSolde = 0
                            End If
                            
                            If TotalAccidentDeTravailAvecArret <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAccidentDeTravailAvecArret 'on met le total
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "AT" 'on met le code du motif
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 990 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalAccidentDeTravailAvecArret = 0
                            AccidentDeTravailAvecArret = 0
                            End If
                            
                            If TotalAccidentDeTrajet <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAccidentDeTrajet 'on met le total
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "ATR" 'on met le code du motif
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1040 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalAccidentDeTrajet = 0
                            AccidentDeTrajet = 0
                            End If
                            
                            If TotalCongeAdoption <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeAdoption 'on met le total
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CAD" 'on met le code du motif
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 410 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalCongeAdoption = 0
                            CongeAdoption = 0
                            End If
                            If TotalCongePourConvenancePersonnelle <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePourConvenancePersonnelle 'on met le total
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CCP" 'on met le code du motif
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 980 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalCongePourConvenancePersonnelle = 0
                            CongePourConvenancePersonnelle = 0
                            End If
                            'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                            If TotalCongeFormationPro <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeFormationPro 'on met le total
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CF" 'on met le code du motif
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalCongeFormationPro = 0
                            CongeFormationPro = 0
                            End If
                            'ATTENTION CODE NATURE A VERIFER POUR CELUI CI
                            If TotalCongepayeNonRemunereParEmployeur <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongepayeNonRemunereParEmployeur 'on met le total
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CNR" 'on met le code du motif
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalCongepayeNonRemunereParEmployeur = 0
                            CongepayeNonRemunereParEmployeur = 0
                            End If
                            'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI et CODE ABSENCE(motif)
                            If TotalCongeAnciennete <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeAnciennete 'on met le total
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "a mettre" 'on met le code du motif
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalCongeAnciennete = 0
                            CongeAnciennete = 0
                            End If
                            'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                            If TotalCongeParental <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeParental 'on met le total
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CPA" 'on met le code du motif
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalCongeParental = 0
                            CongeParental = 0
                            End If
                            'ATTENTION CODE NATURE A VERIFER POUR CELUI CI
                            If TotalCongePresenceParental <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePresenceParental 'on met le total
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CPP" 'on met le code du motif
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1060 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalCongePresenceParental = 0
                            CongePresenceParental = 0
                            End If
                            'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                            If TotalFemmeEnceinteDispenseDeTravail <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalFemmeEnceinteDispenseDeTravail 'on met le total
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "FENC" 'on met le code du motif
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 0 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalFemmeEnceinteDispenseDeTravail = 0
                            FemmeEnceinteDispenseDeTravail = 0
                            End If
                            If TotalAbsenceMaladie <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaladie 'on met le total
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MA" 'on met le code du motif
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 960 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalAbsenceMaladie = 0
                            AbsenceMaladie = 0
                            End If
                            If TotalAbsenceMaladiePro <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaladiePro 'on met le total
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MAP" 'on met le code du motif
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1000 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalAbsenceMaladiePro = 0
                            AbsenceMaladiePro = 0
                            End If
                            If TotalCongePaternite <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePaternite 'on met le total
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MP" 'on met le code du motif
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1050 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalCongePaternite = 0
                            CongePaternite = 0
                            End If
                            If TotalAbsenceMaternite <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaternite 'on met le total
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MT" 'on met le code du motif
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1010 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalAbsenceMaternite = 0
                            AbsenceMaternite = 0
                            End If
                            'ATTENTION CODE ABSENCE(motif) A OBTENIR POUR CELUI CI
                            If TotalAbsenceMiTempsTherapeuthique <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMiTempsTherapeuthique 'on met le total
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 440 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalAbsenceMiTempsTherapeuthique = 0
                            AbsenceMiTempsTherapeuthique = 0
                            End If
                            'ATTENTION CODE ABSENCE(motif) A VERIFIER POUR CELUI CI
                            If TotalCongePaye <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePaye 'on met le total
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CP" 'on met le code du motif
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 950 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalCongePaye = 0
                            CongePaye = 0
                            End If
                            'Ne rentre peut tre pas en compte comme une absence mais comme un droit
                            If TotalJourFerie <> 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                            Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                            Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalJourFerie 'on met le total
                            Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                            Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 0 'on met le code nature evenement
                            Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                            LigneSage = LigneSage + 1
                            TotalJourFerie = 0
                            JourFerie = 0
                            
                            End If
                        
                            If TotalRTT = 0 Then
                            Sheets("SAGE").Cells(14 + LigneSage, 9).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de dbut
                            Else
                            RTT = Sheets("pointage 2017 2018").Cells(2 + a, 4 + b).Value
                            TotalRTT = TotalRTT + RTT
                            End If
                        End If
        Else
                        If TotalCongeSansSolde <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeSansSolde 'on met le total du conge sans solde
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CS" 'on met le code du motif , ici conge sans solde
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 980 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        End If
                        
                        If TotalAccidentDeTravailAvecArret <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAccidentDeTravailAvecArret 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "AT" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 990 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        End If
                        
                        If TotalAccidentDeTrajet <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAccidentDeTrajet 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "ATR" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1040 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        End If
                        
                        If TotalCongeAdoption <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeAdoption 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CAD" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 410 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        End If
                        
                        If TotalCongePourConvenancePersonnelle <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePourConvenancePersonnelle 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CCP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 980 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                        If TotalCongeFormationPro <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeFormationPro 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CF" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        End If
                        'ATTENTION CODE NATURE A VERIFER POUR CELUI CI
                        If TotalCongepayeNonRemunereParEmployeur <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongepayeNonRemunereParEmployeur 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CNR" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI et CODE ABSENCE(motif)
                        If TotalCongeAnciennete <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeAnciennete 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "a mettre" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                        If TotalCongeParental <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongeParental 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CPA" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 470 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        End If
                        'ATTENTION CODE NATURE A VERIFER POUR CELUI CI
                        If TotalCongePresenceParental <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePresenceParental 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CPP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1060 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        End If
                        'ATTENTION CODE NATURE A OBTENIR POUR CELUI CI
                        If TotalFemmeEnceinteDispenseDeTravail <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalFemmeEnceinteDispenseDeTravail 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "FENC" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 0 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        End If
                        
                        If TotalAbsenceMaladie <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaladie 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MA" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 960 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        End If
                        
                        If TotalAbsenceMaladiePro <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaladiePro 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MAP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1000 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        End If
                        
                        If TotalCongePaternite <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePaternite 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1050 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        End If
                        
                        If TotalAbsenceMaternite <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMaternite 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "MT" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 1010 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        End If
                        'ATTENTION CODE ABSENCE(motif) A OBTENIR POUR CELUI CI
                        If TotalAbsenceMiTempsTherapeuthique <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalAbsenceMiTempsTherapeuthique 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 440 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        End If
                        'ATTENTION CODE ABSENCE(motif) A VERIFIER POUR CELUI CI
                        If TotalCongePaye <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalCongePaye 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "CP" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 950 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        End If
                        'Ne rentre peut tre pas en compte comme une absence mais comme un droit
                        If TotalJourFerie <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalJourFerie 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 0 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        End If
                        'ATTENTION CODE ABSENCE(motif) A OBTENIR POUR CELUI CI
                        If TotalRTT <> 0 Then
                        Sheets("SAGE").Cells(14 + LigneSage, 7).Value = Sheets("pointage 2017 2018").Cells(558 + a, 4 + b).Value 'on met le matricule
                        Sheets("SAGE").Cells(14 + LigneSage, 10).Value = Sheets("pointage 2017 2018").Cells(2 + a, 3).Value 'on met la date de fin car ca c'est termin maintenant
                        Sheets("SAGE").Cells(14 + LigneSage, 12).Value = TotalRTT 'on met le total
                        Sheets("SAGE").Cells(14 + LigneSage, 11).Value = "" 'on met le code du motif
                        Sheets("SAGE").Cells(14 + LigneSage, 8).Value = 3000 'on met le code nature evenement
                        Sheets("SAGE").Cells(14 + LigneSage, 8).NumberFormat = "0000" 'on veuille  ce qu'il y ai un zero qui apparait avant le code
                        LigneSage = LigneSage + 1
                        End If
                        
                        'faire pour tous les cas
        End If
    End If
    Next
End If
Next
End Sub