Private Sub Worksheet_Activate()
Dim derligne As Integer, rw As Range
Range("b40:h51").ClearContents
For Each rw In Sheets("Licenciés").Rows
If Sheets("Licenciés").Cells(rw.Row, 2).Value = "" Then Exit For
If Sheets("Licenciés").Cells(rw.Row, 8).Value = [B2] Then
derligne = Range("b65536").End(xlUp).Row + 1
Cells(derligne, 2).Value = Sheets("Licenciés").Cells(rw.Row, 1).Value
Cells(derligne, 3).Value = Sheets("Licenciés").Cells(rw.Row, 2).Value & " " & Sheets("Licenciés").Cells(rw.Row, 3).Value
Cells(derligne, 5).Value = Sheets("Licenciés").Cells(rw.Row, 4).Value
Cells(derligne, 6).Value = Sheets("Licenciés").Cells(rw.Row, 5).Value & " / " & Sheets("Licenciés").Cells(rw.Row, 6).Value
Cells(derligne, 8).Value = Sheets("Licenciés").Cells(rw.Row, 7).Value
End If
Next rw
End Sub