Bonjour,
Pour effectuer le traitement attendu, il faut d’abord définir la plage qui contient les données à copier. Cette plage est limitée verticalement par les colonnes E et F, et horizontalement par une ligne de début et une ligne de fin.
Le numéro de la ligne de début est affecté à la variable LigneDebutF1.
LigneDebutF1 = 8
La ligne de fin (DerLig ) est déterminée par une instruction qui renvoie le numéro de la dernière ligne renseignée dans la colonne A
DerLig = Range("A" & Rows.Count).End(xlUp).Row
Si tu ajoutes une ligne dans la colonne E, dans la partie comprise entre la ligne 1 et la ligne 8, tu vas déplacer la ligne de début. Il faudra donc indiquer
LigneDebutF1 = 9
Si tu penses être amené à modifier encore le positionnement de cette plage, tu as tout intérêt à placer une instruction qui déterminera automatiquement la valeur de la ligne de début.
LigneDebutF1 = Range("A1").End(xlDown).Row
(En partant de A1, on recherche la première ligne renseignée dans la colonne A).
A+