Bonjour Jack95000 ,
Sub test()
Dim Ws As Worksheet, Ws_BDD As Worksheet, fileB As Worksheet
Dim tab_BDD, tablo()
Dim i&, j&, derlgntab&, Dercol&, Derlgn&, k&
' Liste des variables:
'i: variable qui est utilisé afin de boucler les lignes du tableau "tab_BDD"
'j: variable qui est utilisé afin de boucler les colonnes du tableau "tab_BDD"
'Derlgn: variable qui est utilisé pour calculer la dernière ligne du tableau "tab_BDD"
'Derlcol: variable qui est utilisé pour calculer la dernière colonne du tableau "tab_BDD"
'derlgntab: variable qui est utilisé pour calculer la dernière ligne utilisé de l'onglet "Bdb"
'k: variable qui est utilisé pour redimensionner le tableau "tablo(k)" en fonctio du nombre de donnée indiqué dans le tableau "tab_BDD" (ex: 7 prénoms trouvé dans le tableau "tab_BDD" alors ==> tablo(k)=tablo(7) )
Set Ws_BDD = ThisWorkbook.Sheets("Saisie")
Set Ws = ThisWorkbook.Sheets("Bdb")
Dercol = Ws_BDD.Cells(2, Cells.Columns.Count).End(xlToLeft).Column
Derlgn = Ws_BDD.Cells(Cells.Rows.Count, 2).End(xlUp).Row
tab_BDD = Ws_BDD.Range(Ws_BDD.Cells(2, 2), Ws_BDD.Cells(Derlgn, Dercol))
k = 0
For i = 1 To UBound(tab_BDD, 1)
For j = 1 To UBound(tab_BDD, 2)
ReDim Preserve tablo(k)
If Not tab_BDD(i, j) = Empty Then tablo(k) = tab_BDD(i, j): k = k + 1
Next j
Next i
derlgntab = Ws.Cells(Cells.Rows.Count, 1).End(xlUp).Row + 1
Ws.Range("A" & derlgntab).Resize(1, UBound(tablo, 1) - 1) = tablo
End Sub