Coller un format avec vba

Bonjour,

J'ai besoin d’insérer une ligne au milieu d'un tableau et la formatter selon une autre ligne dehors du tableau.

J'ai fait ça:

Code:

---

1 2 3 4 5 6 7 8 9

Sub Plus()   ActiveSheet.Unprotect On Error Resume Next Rows(ActiveCell.Row).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Rows(1).copy Destination:=Rows(ActiveCell.Row) ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True   End Sub

---

Mais ça ne marche pas.
Comment faire?
Merci.
Rose

Commence par supprimer On Error Resume Next qui ne sert qu'à brouiller le jeu.

Citation:

---

Code:

---

1 2	Rows(ActiveCell.Row).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Rows(1).copy Destination:=Rows(ActiveCell.Row)

---

---

Si tu veux insérer une cellule copiée, il faut faire la copie (sans destination) avant l'insertion.