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 : Sélectionner tout - Visualiser dans une fenêtre à part
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