Les macros :
Sub Filtrer()
Cells(8, 1).CurrentRegion.Offset(1, 0).ClearContents
Sheets("Base facturation").ListObjects(1).Range.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("A5").CurrentRegion, _
CopyToRange:=Range("A8:E8"), Unique:=False
der = Cells(Rows.Count, 1).End(xlUp).Row
If der > 8 Then
For i = 9 To der
Cells(i, 6).FormulaR1C1 = "=RC[-1]-R3C2+1"
Next i
End If
End Sub
Private Sub Worksheet_Activate()
Filtrer
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B3")) Is Nothing Then Exit Sub
Filtrer
End Sub