suivi des absences

  On Error GoTo Fin
            Application.EnableEvents = False
            'Applique le format (sauf les bordures)
            .Cells(l, 2).Copy
            v = Target.Formula
            Target.PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
                    SkipBlanks:=False, Transpose:=False
            
            'Vous pouvez inverser les 2 conditions ci-dessous en plaçant ou en
            'supprimant l'apostrophe (')devant le code.
            [B][COLOR="Blue"]Target.Formula = ""   'Pour obtenir uniquement la couleur[/COLOR][/B] [COLOR="Purple"][B]'Mettre ici une apostrophe devant le code[/B][/COLOR]
            [COLOR="Red"][B]'Target.Formula = V   'Pour obtenir le texte sur la couleur[/B][/COLOR]<<<<<[COLOR="Green"][B]Ici tu peu forcer un texte unique en enlevant l'apostrophe[/B][/COLOR]
            'Sans ce cas, le texte doit être placé sur la feuille MFC
            
            'Il semble que sur Mac et dans certaines situations (non ciblées) le format
            'conditionnel "spécial" d'origine ne soit pas écrasé par le nouveau, il convient
            'donc de s'en assurer avant de réimposer ce format spécial.
            If Target.FormatConditions.Count < 1 Then Target.FormatConditions.Add Type:=xlExpression, Formula1:="=mDF"
            Application.CutCopyMode = False
            Application.EnableEvents = True
        End With
    End If
    Exit Sub
Fin: