Inserer colonne

Bonjour,

je voudrai insérer une colonne en A si ce dernier n'est pas vide

J'ai essayé cette formule mais ça bug !!!

Sub col()

If Application.CountA(Columns(A)) > 0 Then _

Columns(A).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

End Sub

Merci de m'éclairer sur le sujet

Daniel

Bonjour

A tester

Sub col()
If Application.CountA(Columns("A")) > 0 Then _
Columns("A").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

Merci

C t devant mon nez

Daniel