Repérer la virgule dans une cellule et placer les termes dan

Oui c'était bien ça le problème cela fonctionne parfaitement,

Columns("A:L").Select

Columns("A:L").EntireColumn.AutoFit

Range(Cells(1, 1), Cells(1, dercol2)).Interior.Color = RGB(51, 63, 79)

Range(Cells(1, 1), Cells(1, dercol2)).Font.Color = RGB(255, 255, 255)

Range("A1").Select

Je ne comprend pas ce que fait cette partie de programme est elle indispensable?

Re,

Non , l'autofit c'est pour mettre les colonnes à bonne taille par rapport au données

et les reste pour la colorisation de l'ajout des colonnes en ligne 1

Très bien merci pour tous en cas votre aide m'a permis de finaliser mon travail et en plus de ça de me familiariser un peu avec les macro merci beaucoup