Bonjour,
Un essai ...
Sub Copier_B3_B4()
Dim Dlig As Integer
With Worksheets("Liqui")
Dlig = .Cells(Rows.Count, "A").End(xlUp).Row
.Cells(11, "N") = Worksheets("Feuil2").Cells(3, "B").Formula
.Cells(11, "N").Copy .Range("N12:N" & Dlig)
.Cells(11, "O") = Worksheets("Feuil2").Cells(4, "B").Formula
.Cells(11, "O").Copy .Range("O12:O" & Dlig)
End With
End Sub
ric