je vous remercie voici les les code VBA .
'code pour que les feuilles soients nommer automatique par rapport à une cellule
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Cells(2, 4) <> "" Then ActiveSheet.Name = Cells(2, 4) 'Correspond à la cellule D2
End Sub
'code pour recherche par départements
Sub Departement()
'
' Departement Macro
'
'
Application.CutCopyMode = False
Application.CutCopyMode = False
Application.CutCopyMode = False
Application.CutCopyMode = False
Range("Commerciaux").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Range("O5:R6"), CopyToRange:=Range("Départements!Extract"), Unique:=False
Range("D4").Select
End Sub
'Code pour effacer le filtre avancé
Sub EFFACEDEP()
'
' EFFACEDEP Macro
'
'
Rows("12:8000").Select
Selection.Delete Shift:=xlUp
Range("B4").Select
End Sub