Bonjour,
Essaie ça:
'Recopie des formules
.Range(.Cells(DLig, "A"), .Cells(DLig, "AK")).FormulaR1C1 = .Range(.Cells(DLig - 1, "A"), .Cells(DLig - 1, "AK")).FormulaR1C1
Cette ligne fait une recopie de toute la ligne précédente.
Les listes de validation devraient suivre. Je pense
Cordialement
ddetp88