Comment arreter la convertion d'une colonne sans msg d'erreur

[H@nnoun]

Bonjour à tous
j'utilise ce code pour convertir des colonnes dans un tableau ce code fonctionne
Mon probleme c'est lorsque la derniere colonne est vide le message "pas de donnees a convertir " apparrait. Comment faire pour eviter ce message ?
Merci d'avance pour votre AIDE
H@nnoun

-------------------------------------------------------------------------------------------
Dim Co As Integer
Dim Li As Integer
Li = 1

For Co = 1 To Columns.Count
If TextToColumns = Null Then Exit For
Columns(Co).Select

Selection.TextToColumns Destination:=Selection.Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1)
Selection.Columns.AutoFit
Next Co

End Sub

 

[Jon]

bonjour

if application.counta(columns(co))=0 then
'pas de conversion
else
'conversion
...
end if

 

[H@nnoun]

Bonjour Jon
et Merci pour ton aide ça marche
A+
H@nnoun