Private Sub Worksheet_Activate()
Range("R39").Value = WorksheetFunction.CountIf(Range("D4:O71"), "Training")
Range("R42").Value = WorksheetFunction.CountIf(Range("D4:O71"), "Règles")
Range("R45").Value = WorksheetFunction.CountIf(Range("D4:O71"), "Indiv")
Range("R48").Value = WorksheetFunction.CountIf(Range("D4:O71"), "Initiation")
End Sub