Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim F As Worksheet
If Application.CutCopyMode <> 0 Then Exit Sub
Set F = Sh
If F.Name = "Données" Then Exit Sub
F.[A2:L50000].Delete xlShiftUp
On Error Resume Next
With Intersect(Feuil1.[M2:M50000], Feuil1.UsedRange)
.FormulaR1C1 = "=1/(RC8=""" & F.Name & """)"
.SpecialCells(xlCellTypeFormulas, 1).EntireRow.Resize(, 12).Copy F.[A2]
.ClearContents
End With
Feuil1.[P2:P4].Copy F.[P2:P4]
F.[O24].FormulaR1C1 = "=SUMIF(R2C12:R5000C12,""O"",R2C11:R5000C11)"
End Sub