Une idée toute simple, une petite macro qui recopie tout le tableau puis qui éfface les cellules non désirées.
Dans ce style :
Sub CopierCollSpec()
'
' CopierCollSpec Macro
' Macro enregistrée le 13/01/2003 par Propriétaire
'
'
Range("A2:I4").Select
Selection.Copy
Range("A7").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("E7:F9,H7:H9").Select
Selection.ClearContents
End Sub
Thierry, je n'ai pas vu ta méthode, je n'ai pas pu ouvrir ton module, mais je suppose, que c'est dans la même idée.
@ +
Moa