Merci Steelson
C'est OK pour les % de chaque Groupe
Sub traitement()
Dim der
Range("DN2").FormulaR1C1 = "=LEFT(RC[-35],5)"
Range("DO2").FormulaR1C1 = "=SUM(RC[-35]:RC[-21])/R1C117"
Range("DO2").Select
Selection.NumberFormat = "0.00%"
Selection.NumberFormat = "0.0%"
Selection.NumberFormat = "0%"
Range("DN2:DO2").Select
der = Range("CE2").End(xlDown).Row
Selection.AutoFill Destination:=Range("DN2:DO" & der)
ActiveSheet.Range("$DN$1:$DO$" & der).AutoFilter Field:=2, Criteria1:=">=70%", Operator:=xlAnd
End Sub
Aurais-tu une astuce pour ne remonter que les 3 lettres 2 chiffres Uniquement
ZTL013
ZTL014 Ok pour ZLT01
YZRX005
YZRX006
YZRX007 A ignorer car différent de 3 lettres 2 chiffres
Merci infiniment
et bon Week-End à toi et ta famille