Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
With ListObjects(1).Range 'tableau structuré
If .Rows.Count > 3 Then .Rows(3).Resize(.Rows.Count - 3).Delete xlUp 'RAZ
.ListObject.Resize .Resize(Sheets("BDD").ListObjects(1).Range.Rows.Count) 'redimensionne le tableau
.Rows(2).Copy .Rows(2).Resize(.Rows.Count - 2) 'propage les formules
End With
End Sub