Macro synthése en mode partager

Bonjour le forum,

Je vient ver vous pour un petit soucis de macro que je n'arrive pas a comprendre.
Cette macros fonctionne normalement, elle me copie des lignes avec des couleurs de plusieurs feuille et m'en fais la synthése sur une autre.
Mais des que je passe le classeur en mode partager sur le réseau.
La copie se fait mais elle ne n'affiche plus les couleurs.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Application.ScreenUpdating = False Sheets("Absences").Select Range("A5") = " " Rows("5:" & Range("A65535").End(xlUp).Row + 1).Delete Shift:=xlUp For i = 2 To Sheets.Count Sheets(i).Select For J = Cells(Rows.Count, "a").End(xlUp).Row To 5 Step -1 If Application.WorksheetFunction.CountA(Range("a" & J).Offset(, 2).Resize(, 40)) <> 0 Then Rows(J).Copy Destination:=Sheets("Absences").Cells(Sheets("Absences").Range("A65535").End(xlUp).Row + 1, 1) Next J Next i Sheets("Absences").Select Application.ScreenUpdating = True

---

Merci de vos réponses
A+