hi
try this.
Worksheets("PrioCrit").Range("N7",Range("N7").Rang e("N44")).Value = _
Worksheets("Var").Range("K57",Range("K57").Range(" K94")).Value

regards
FSt1

Hi

I have every time the same error on the same instruction, the
instruction is in a module and the error is Run time error 1004
Application-defined or objet defined error

The fonction is :

Public Static Function ABC (Crit)

Dim i As Integer, j As Integer, k As Integer

k = Crit + 2

Instructions...

Problematic Instruction
Worksheets("PrioCrit").Range(Cells(7, "N"), Cells(44, "N")).Value
= Worksheets("Var").Range(Cells(57, k), Cells(94, k)).Value


End Function

What' s wrong ?

Thanks