Problème de copie de mise en forme conditionnelle

Bonjour,

Mon problème est le suivant, lorsque j'exécute mon bouton contenant le prog ci-dessous mon programme, la colonne se copie correctement sur ma nouvelle feuille mais les règles de mise en forme conditionnelle ne suivent pas et restent en lien avec la feuille source.

Sub Insérercolonne()

'Sélection et copie dans les données de fonctionnement la colonne DD

Sheets("Données_fonctionnement").Columns("D:D").Copy

'Copie de la sélection dans la feuille active

ActiveSheet.Select

'Sélection de la colonne dans laquelle se trouve la cellule active

ActiveCell.EntireColumn.Select

'Insérer la sélection en lieu et place de la colonne ou se trouve la cellule active

Selection.Insert Shift:=xlToLeft

End Sub

Bonjour,

à tester,

Sub test()
ActiveCell.EntireColumn.Insert Shift:=xlToLeft
Set plg = ActiveCell.EntireColumn
Sheets("Données_fonctionnement").Columns("D:D").Copy plg
End Sub

Bonjour i20100,

Merci bien, ça fonctionne et mon problème est réglé.

Cdlt

Capt Pirlo