Re : Copie automatique
Bonjour,
Avec cela ça marche (la copie commence en B2 sur feuil2. On peut commencer ailleurs en ajoutant des tests). Evidemment, ici on copie toujours les mêmes valeurs.
Private Sub Essai()
Worksheets("feuil1").Activate
Set plage = Union(Range("A1"), Range("B2"), Range("C2"), Range("C3"), Range("C4"), Range("C6"), Range("C7"), Range("C8"), Range("C9"), Range("C11"), Range("E11"))
n = Sheets("feuil2").Range("B65536").End(xlUp).Offset(1, 0).Row
For Each x In plage
x.Copy (Worksheets("feuil2").Range("IV" & n).End(xlToLeft).Offset(0, 1))
Next x
End Sub
Cordialement