Si colonne vide stopper procédure

Bonjour le forum,

j'aimerais un code capable de stopper la macro si la colonne A est vide.

Merci pour votre aide

Bonjour,

Un essai :

If Application.CountA(Range("A:A")) = 0 Then Exit Sub

Salut CDB, salut Pedro22,

ou comme ca

Sub StopMacro()
If WorksheetFunction.CountA(Columns(1)) = 0 Then Exit Sub
End Sub

Bonjour,

Tout d'abord merci pour votre aide.

Je voudrais ajouter ce code mais ne trouve pas comment l'intégrer à votre réponse

Sheets("feuil1").Select

Columns("D:O").Select

Selection.ClearContents

Selection.Style = "Normal"

With Selection.Interior

.Pattern = xlSolid

.PatternColorIndex = xlAutomatic

.ThemeColor = xlThemeColorDark1

.TintAndShade = 0

.PatternTintAndShade = 0

End With

Réponse: If Application.CountA(Range("A:A")) = 0 Then Exit Sub

Avant de stopper la procédure il faudrait y ajouter le code du dessus.

Merci pour votre aide