Couper insérer une colonne

Bonjour,
je voudrais faire en sorte que sur la plage de colonne allant de 1 à derCol_Bil (la dernière colonne non-vide de la feuille appelé "Bilan"), si la première cellule des 2 colonnes est la même alors la 2eme soit coupée puis insérée à la suite de la prmière. J'ai essayé ce code mais il ne marche pas
Quelqu'un aurait-il une solution ?

For i = 1 To derCol_Bil
For j = i + 1 To derCol_Bil
If Cells(1, i) = Cells(1, j) Then
Columns(j, Columns.Count).Cut
Columns(i + 1, Columns.Count).Insert Shift:=xlToRight
End If
Next
Next