Améliorer formule en VBA

[Luxguard]

Bonjour à tous,
Voici mon problème. Je souhaiterais améliorer la formule ci-dessous, j'aimerais qu'elle tienne en compte l'ajout de nouveaux onglets, actuellement je modifie le code à chaque ajout de nouvel ongle.


Next
Sheets("Synthése").Range("B5").FormulaLocal = "=NB(D5;F5;H5;J5;L5)"
Sheets("Synthése").Range("C5").FormulaLocal = "=+D5+E5+F5+G5+H5+I5+J5+K5+L5+M5"
derlin = Sheets("Synthése").Range("A" & Rows.Count).End(xlUp).Row
Sheets("Synthése").Range("B5").AutoFill Destination:=Range("B5:B" & derlin), Type:=xlFillDefault
Sheets("Synthése").Range("C5").AutoFill Destination:=Range("C5:B" & derlin), Type:=xlFillDefault
Application.ScreenUpdating = True

merci d'avance

 

[kingfadhel]

Bonjour,
Je ne vois qu'une seule feuile "Synthése".

 

[Luxguard]

Bonjour,
Je ne vois qu'une seule feuile "Synthése".

voici le fichier exemple avec la macro

 

[Jacky67]

Bonjour,
Une proposition sans vba.
En E5

=INDEX(INDIRECT("'"&E$3&"'!$A$1:$C$7");EQUIV($A5;INDIRECT("'"&E$3&"'!$A$1:$a$7");0);EQUIV(E$4;INDIRECT("'"&E$3&"'!$A$3:$C$3");0))

En F5

=INDEX(INDIRECT("'"&E$3&"'!$A$1:$C$7");EQUIV($A5;INDIRECT("'"&E$3&"'!$A$1:$a$7");0);EQUIV(F$4;INDIRECT("'"&E$3&"'!$A$3:$C$3");0))

**Une version VBA en v2

 

[Luxguard]

Bonjour,
Une proposition sans vba.
En E5

=INDEX(INDIRECT("'"&E$3&"'!$A$1:$C$7");EQUIV($A5;INDIRECT("'"&E$3&"'!$A$1:$a$7");0);EQUIV(E$4;INDIRECT("'"&E$3&"'!$A$3:$C$3");0))

En F5

=INDEX(INDIRECT("'"&E$3&"'!$A$1:$C$7");EQUIV($A5;INDIRECT("'"&E$3&"'!$A$1:$a$7");0);EQUIV(F$4;INDIRECT("'"&E$3&"'!$A$3:$C$3");0))

**Une version VBA en v2

Un très grand merci, superbe travail.