Une autre question, peut on faire en sorte qu'il n'y ait pas de message d'erreur quand il n'y a pas de valeur et y mettre un NA ou vide à la place sur cette formule ? C'était dans la page summary pour compter les utilisateurs, dossiers, etc ...
Private Sub Worksheet_Activate()
DifférentsComptés [D11], WshGDrv.[D2]
DifférentsComptés [B16], WshFolOwn.[D2]
DifférentsComptés [D16], WshDspHR.[D2]
Sub DifférentsComptés(ByVal CelCible As Range, ByVal CelSrcDéb As Range)
CelCible.Value = Gigogne(CelSrcDéb, 1).Count
End Sub