'Ta macro est une macro venant de l'enregistreur de macro d'Excel
'Donc au lieu de cela pour une cellule à copier et coller sur une autre feuille
'exemple avec seulement une cellule
'AU LIEU DE CELA
Sheets("FicheSaisieEXT").Select
Range("L7").Select
Selection.Copy
Sheets("BDD").Select
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'FAIRE CELA
'1 - Définir des variables pour les deux onglets, la première ligne vide pour écrire
Application.ScreenUpdating = False 'désactivation du rafraichissement de l'écran
Dim Dl%, Ws As Worksheet, Wd As Worksheet
Set Ws = Sheets("FicheSaisieEXT") 'attribue Ws pour la Worksheet source
Set Wd = Sheets("BDD") 'attribue Wd pour la Worksheet destination
Dl = Wd.Range("A" & Rows.Count).End(xlUp).Row + 1 '1ère ligne vide de Wd
Ws.Range("L7").Copy 'je copie la cellule D7 de Ws
'et je colle sa valeur (xlPasteValues) sur la cellule B et 1ère ligne vide de Wd
Wd.Range("B" & Dl).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'etc....