copie de cellules

[Francis]

Bonjour le forum
Je désire envoyer sur une autre feuille les cellules d’une partie de feuille à l’aide de la phrase suivante.
' For Each cell In MaPlage
ZoneA(i) = cell.Value
Sheets('feuil2').Range('A' & F2) = ZoneA(i)'
Tout marche bien …sauf cela ne copie pas les commentaires et surlignages.
Que faut il rajouter ?
Merci d’avance
Francis

 

[stanol69]

bonjour,
je pense que le collage spécial peut t'aider;
avec l'enregistreur de macros:

Range('A4').Select
Selection.Copy
Range('D4').Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

j'ai fait un copier/collage spécial de A4 en D4

A+