Public Sub recuperation_données_nouvelles_feuilleBDD()
Dim DerLig As Long
Dim Pl3 As Range
Set Pl3 = Sheets("BDD_maj").Range("A1:X1000") 'zone définie en dur pour l'instant
With Sheets("BDD")
'2 possibilité parmi d'autres de rechercher la 1ère ligne non vide
'DerLig = .Range("A" & Rows.Count).End(xlUp).Row + 1
DerLig = .Cells(.Cells.Rows.Count, 1).End(xlUp).Row + 1 'DerLig te ramène la dernière ligne non vide et +1 pour cerner la ligne du dessous
.Cells(DerLig, 1).Resize(Pl3.Rows.Count, Pl3.Columns.Count) = Pl3.Value
End With
End Sub