BonjourBonjour à tous,
Une proposition :
BonjourT'as pas lu la formule en a1
en gros , c'est la bdd filtrée (fonction filtre() sur la colonne nom ="toto")
Bdd mise en tableau structuré pour que tu puisses ajouter tout ce que tu veux.
Crdlmt
=FILTRE(BdD;BdD[nom]=STXT(CELLULE("filename";A1);TROUVE("]";CELLULE("filename";A1))+1;32))
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
With Sheets("BaseDeDonnées")
If Sh.Name = .Name Then Exit Sub
With .[A1].CurrentRegion
.AutoFilter 1, Sh.Name 'filtre automatique
.Copy [A1] 'copier-coller
.AutoFilter 'ôte le filtre
End With
Rows(2 + Application.CountIf(Columns(1), Sh.Name) & ":" & Rows.Count).Delete 'RAZ en dessous
End With
End Sub