Cellules identiques
Bonjour,
Je suis en train d'essayer d'écrire une macro qui me permet d'insérer une colonne après toutes les cellules identiques sur la ligne 1 d'un ficheir excel
Le but c'est si j'ai à la suite sur les cellules de la premiere ligne 2011 2011 2011 2011 2012 2012 2013 2013 2013 2013 2014 2014
de pouvoir insérer une colonne après la derniere cellule 2011, la derniere cellule 2012 etc...
Sub macro4()
Dim cel As Range, ins As Range
For Each cel In Range("E1:AA1")
If cel <> "" And cel.Offset(0, 1) <> "" And cel <> cel.Offset(0, 1) _
Then Set ins = Union(IIf(ins Is Nothing, cel, ins), cel)
Next
If Not ins Is Nothing Then ins.EntireColumn.Insert
End Sub
Sauf que ce code insére une colonne avant la dernière cellule idéntique de la chaine
Comment le modifier?
D'avance merci
Cordialement
ça maaaaarche ....