[Staple1600]

Bonjour

Peut être cela pourra t'aider

En nommant une cellule 'critere'
contenanant un chiffre de 1 à 12

Sub TRI()
With ActiveSheet.Range('A1').CurrentRegion
.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range('critere'), Unique:=False
Worksheets.Add after:=Sheets(Sheets.Count)
.Copy ActiveSheet.Range('A1')
End With
End Sub

Message édité par: staple1600, à: 24/12/2005 11:56