Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With [BDD_Site]
With .Rows(.Rows.Count + 1)
If Not Intersect(ActiveCell, .Cells(1)) Is Nothing And .Cells(0, 1) <> "" Then
.Rows(0).Copy .Cells(1)
.SpecialCells(xlCellTypeConstants).ClearContents
End If
End With
End With
ActiveSheet.AutoFilterMode = False
If Intersect(Target, ActiveSheet.Range("C5,C7,G5,E5")) Is Nothing Then Exit Sub
[B10].AutoFilter 'ça peut être ça tout simplement
Select Case Target.Column
Case 3, 4, 6
If [C5] <> "" Then [B10].AutoFilter Field:=1, Criteria1:=[C5].Value 'Secteur
If [E5] <> "" Then [B10].AutoFilter Field:=2, Criteria1:=[E5].Value 'Site
If [G5] <> "" Then [B10].AutoFilter Field:=3, Criteria1:=[G5].Value 'Actif/inactif
If [C7] <> "" Then [B10].AutoFilter Field:=3, Criteria1:=[C7].Value 'Matériel
If [C5] & [C7] & [E5] & [G5] = "" Then [B10].AutoFilter
Case Else
ActiveSheet.AutoFilterMode = False
End Select
End Sub