Private Sub Worksheet_Activate()
'Macro par _Thierry + Dan pour Matteo
'http://www.excel-downloads.com/forums/2-131671-urgent-macro-possible.htm
Dim Plage As Range, Cell As Range
With Sheets('Fiche Synthèse')
.Range('A9:J24').ClearContents
End With
With Sheets('Compilation')
Set Plage = .Range(.Range('B6'), .Range('C65536').End(xlUp))
For Each Cell In Plage
If Cell.Offset(0, 2) = 1 Then
Sheets('Fiche Synthèse').Range('A24').End(xlUp).Offset(1, 0) = Cell
End If
If Cell.Offset(0, 4) = 1 Then
Sheets('Fiche Synthèse').Range('A24').End(xlUp).Offset(1, 0) = Cell
End If
If Cell.Offset(0, 6) = 1 Then
Sheets('Fiche Synthèse').Range('A24').End(xlUp).Offset(1, 0) = Cell
End If
If Cell.Offset(0, 7) = 1 Then
Sheets('Fiche Synthèse').Range('G24').End(xlUp).Offset(1, 0) = Cell
End If
Next
End With
End Sub