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.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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