Sub FiltrerII()
Dim vCrit
vCrit = ActiveSheet.Shapes(Application.Caller).Name
[A4:I1600] = ""
Sheets("DATA").Range("$C$3:$H$1600").AutoFilter Field:=2, Criteria1:=vCrit
Sheets("DATA").AutoFilter.Range.Copy Destination:=Sheets("DASH BORD").Range("C3")
Sheets("DATA").ShowAllData
Columns(3).AutoFit
On Error Resume Next
Application.ScreenUpdating = False
'recopie du logo
ActiveSheet.Shapes("LOGO").Delete
Sheets("LOGOS").Shapes(vCrit).Copy
[J2].Select
ActiveSheet.Paste
With Selection
.Name = "LOGO"
.ShapeRange.Left = [J2].Left
.ShapeRange.Top = [J2].Top
End With
[J2].Select
Application.CutCopyMode = False
End Sub