Deplacer colonne en VBA sous condition

bonjour

j ai un tableau avec 2 colonnes je souhaite inversé les colonnes si dans la colonne A, la cellule A2 est inférieur a 9999.

et si c est supérieur ne rien faire.

merci pour votre aide.

Bonjour,

A essayer je ne sais pas si cela vous conviendra parfaitement

Sub test()
a = Sheets("Feuil1").Range("A2")
If a > 9999 Then

Range("B1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Cut
Range("A:A").Select
Selection.Insert Shift:=xlToRight
Range("A1").Select
End If

End Sub

Cognomen

ok c est bon juste une inversion du signe inférieur - superieur

merci