Sub Worksheet_Activate()
With Sheets("MAG")
[A1:Z1000].ClearContents
Application.ScreenUpdating = false
Ligne = 1
For C = 15 To 19 Step 2 ' colonnes O Q S
For L = 1 To 25 ' longueur de la liste
If LCase(.Cells(L, C)) = "vrai" Then
Cells(Ligne, "A") = .Cells(L, 2 * C - 26) ' 2C-26 donnent colonnes DHL pour les colonnes OQS
Ligne = Ligne + 1
End If
Next L
Next C
End With
End Sub