Urgent MACRO POSSIBLE?

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