Sub test()
Dim DerLig As Long
With Worksheets("Feuil1")
DerLig = Application.WorksheetFunction.Min(.Range("C65536").End(xlUp).Row, 163)
DerLig = Application.WorksheetFunction.Max(DerLig, 3) ' si la colonne C est vide
.Range("$H$3:$BM$" & DerLig).FormulaLocal = .Range("$H$3:$BM$3").FormulaLocal
End With
End Sub