Private Sub Worksheet_Activate()
Dim dercel As Range
Application.ScreenUpdating = False
Feuil1.[A:E].Copy [A1] 'cooier-coller
Rows.RowHeight = 20.25
Set dercel = [A:E].Find("*", , xlValues, , xlByRows, xlPrevious)
If dercel Is Nothing Then Exit Sub
Columns(5).Resize(dercel.Row) = Columns(5).Resize(dercel.Row).Value 'supprime les formules
If dercel.Row > 22 Then Rows(3).Resize(dercel.Row - 22).Delete
End Sub