Sub Worksheet_Activate()
Dim Fbasen, L%, Col%, Col2%, Lig%
Application.ScreenUpdating = False
[D3:M30].ClearContents
Set Fbase = Sheets("Base")
For L = 1 To 30 ' N° stage
Col = L + 3
Col2 = 4
Lig = 4
While Fbase.Cells(Lig, "C") <> ""
If Fbase.Cells(Lig, Col) = "x" Then
Cells(L + 2, Col2) = Fbase.Cells(Lig, "C")
Col2 = Col2 + 1
End If
Lig = Lig + 1
Wend
Next L
Application.ScreenUpdating = True
End Sub