Sub Importer()
Dim crit1$, crit2$, col1%, col2%, a, ub%, tablo, resu(), i&, n&, j%, v As Variant
With Sheets("Utilisateurs").[A1].CurrentRegion
crit1 = CStr(.Cells(.Rows.Count, 1))
crit2 = CStr(.Cells(.Rows.Count, 2))
End With
col1 = 1: col2 = 10 'à adapter
a = Array(2, 3, 5, 6, 10, 12, 14) 'numéros des colonnes à copier
ub = UBound(a)
tablo = Sheets("BD").[A1].CurrentRegion.Resize(, 14)
ReDim resu(UBound(tablo), ub) 'base 0
For i = 2 To UBound(tablo)
If UCase(tablo(i, col1)) = crit1 And CStr(tablo(i, col2)) = crit2 Then '2 critères vérifiés
For j = 0 To ub
v = tablo(i, a(j))
If IsNumeric(v) Then resu(n, j) = CDbl(v) Else resu(n, j) = v
Next j
n = n + 1
End If
Next i
'---restitution---
With Sheets("Crédit")
If .FilterMode Then .ShowAllData 'si la feuille est filtrée
If n Then .Cells(.Rows.Count, 4).End(xlUp)(2).Resize(n, ub + 1) = resu
End With
'---RAZ---
With Sheets("BD")
If .FilterMode Then .ShowAllData 'si la feuille est filtrée
.[A1].CurrentRegion.Offset(1).Delete xlUp
End With
End Sub