La partie du code concerné :
Sub Com(Jour)
Sheets("BDD").Range("VIDE").Copy
Sheets("EDT").Range(Jour).PasteSpecial
End Sub
"VIDE"
est un plage nommée dans le gestionnaire de nom et Jour
fait référence à un String
qui est également une plage nommée dans le gestionnaire de nom.
"VIDE"
: Plage de 48 lignes et 1 colonne ne contenant que des cellules vides
Jour
: Plage de 48 lignes et 1 colonne contenant des donnés