Probleme de copie...

[Cyril]

Bonjour a tous,

j'ai un petit soucis lorsque je veux copier des cellules entieres : lorsque je copie une cellule avec uniquement du texte, ca passe tres bien. Par contre, lorsque dans la cellule en question, il y a une combobox l'operation de copie ne marche pas : voici le code ...

Dim ligne As Integer, Colonne As Integer, i As Integer
Dim cellule As Range

i = 0
ligne = Selection.Row
Colonne = Selection.Column

Workbooks(1).Worksheets.Add
Workbooks(1).Worksheets(1).Name = "Temp"

Set plage = Range("A4", "AA4")
'MsgBox (ligne)

'copie de chaque cellule de la ligne selectionnee
For Each cellule In plage.Cells
i = i + 1
Workbooks(1).Sheets(2).Cells(ligne, i).Copy
Workbooks(1).ActiveSheet.Cells(ligne, i).PasteSpecial (xlPasteAll)
Next cellule

'Workbooks(1).ActiveSheet.Delete


Merci par avance pour toute aide ...

Cyril