Adapte le message Aucune donnée !
à ce que tu souhaites ...
Sub IMPORTER()
If Sheets("BD").Cells(Rows.Count, 1).End(xlUp).Row = 1 Then
MsgBox "Aucune donnée !"
Exit Sub
End If
Sheets("BD").Range("A1:P" & Sheets("BD").Cells(Rows.Count, 1).End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Extrait").Range("A1").CurrentRegion, _
CopyToRange:=Sheets("Extrait").Range("A10:G10"), Unique:=False
Sheets("Extrait").Range("A11:G" & Sheets("Extrait").Cells(Rows.Count, 1).End(xlUp).Row).Copy _
Destination:=Sheets("Crédit").Range("D" & Sheets("Crédit").Cells(Rows.Count, 4).End(xlUp).Row + 1)
Sheets("BD").Range("A1").CurrentRegion.Offset(1, 0).Clear
End Sub