Sub Worksheet_Activate()
Application.ScreenUpdating = False
Range("A2:G10000").ClearContents
With Sheets("SERIE ")
For L = 14 To .Range("M65500").End(xlUp).Row
Valeur = .Cells(L, "A") & .Cells(L, "B")
Select Case .Cells(L, "M")
Case "POSITIF"
Range("A" & Range("A65500").End(xlUp).Row + 1) = Valeur
Case "NEGATIF"
Range("G" & Range("G65500").End(xlUp).Row + 1) = Valeur
Case "ININTERPRETABLE"
Range("C" & Range("C65500").End(xlUp).Row + 1) = Valeur
Case "conforme"
Range("E" & Range("E65500").End(xlUp).Row + 1) =...