Merci, c'est exactement ce que je voulais.
Pourrait-on inclure dans la macro un filtre tel que si le nom de l'onglet contient 'Resul' ?
Autre question, comment amélioré la formule ci dessous, j'aimerais qu'elle tienne en compte l'ajout d'un nouvel onglet
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