les colonnes à droite et gauche de ma selection sont-elles numériques ?

Bonsoir à toutes & tous,

Je selectionne aléatoirement un certain nombre de colonne.

je voudrais savoir combien de colonne à droite de ma selection son numerique et combien à gauche !!

Comment je fais ??

j'ai fait ca :

Private Sub NonSign()
Dim NbSelCol, SelColMin, SelColMax As Integer

NbSelCol = Selection.Columns.Count

SelColMin = -NbSelCol
SelColMax = NbSelCol

Do While IsNumeric(Selection.Offset(0, SelColMin).Value)
SelColMin = SelColMin - NbSelCol
Loop

End Sub

Ca ne marche pas du tout ca va jusqu'au bout de ma feuille et ca plante !!
Pourquoi ?

Merci d'avance

Creepy