with ActiveWorkbook.ActiveSheet
.Range('Designation').Copy
.Range(.Cells(.Range('Designation').Row, .Range('Designation').Column), .Cells(.Range('Designation').Row + idecalage, .Range('Designation').Column)).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End With