Private Sub CommandButton2_Click()
Dim BD As Variant
Dim CptBD As Byte
Dim LigDst As Long
BD = Array("BD1", "BD2", "BD3", "BD4")
Sheets("Données Graphique").Range("C6:AI" & Sheets("Données Graphique").Range("C6").End(xlDown).Row).ClearContents
For CptBD = 0 To UBound(BD)
With Sheets(BD(CptBD))
.Range("A1:A" & .Range("A65536").End(xlUp).Row).AutoFilter Field:=1, Criteria1:=Sheets("Données Graphique").TextBox1.Text
If .AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count > 1 Then
LigDst = Sheets("Données Graphique").Range("C65536").End(xlUp).Row + 1
.Range("BB2:BI" & .Range("BB65536").End(xlUp).Row).Copy
Sheets("Données Graphique").Range("C" & LigDst).PasteSpecial xlPasteValues
.Range("BL2:CK" & .Range("BL65536").End(xlUp).Row).Copy
Sheets("Données Graphique").Range("L" & LigDst).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End If
.AutoFilterMode = False
End With
Next CptBD
End Sub