Private Sub Worksheet_Activate()
'Mise à jour des inscriptions à l'activation de la feuille
Dim WS
Dim Feuille As Byte
Dim Ligne1 As Long
Dim Ligne2 As Long: Dim a
Sheets("Recap").Range("A6:AE50000").Delete
For Each WS In ActiveWorkbook.Sheets
a = WS.Name
With WS
If .Name <> "Accueil" And .Name <> "Recap" Then
Ligne1 = Worksheets("Recap").Range("C50000").End(xlUp).Row + 1
Ligne2 = .Range("C50").End(xlUp).Row
If Ligne2 > 5 Then
.Range("B6:AE" & Ligne2).Copy Sheets("Recap").Cells(Ligne1, 2)
End If
End If
End With
Next WS
Sheets("Recap").Range("B5:AE5000").Columns.AutoFit
End Sub