Sub test()
Dim mafeuille As Worksheet, col&
Set mafeuille = ActiveSheet
With mafeuille
col = Range("H1").Column
LastRow_new = .Cells(Rows.Count, col).End(xlUp).Row
MsgBox LastRow_new
col = 8
LastRow_new = .Cells(Rows.Count, col).End(xlUp).Row
MsgBox LastRow_new
End With
End Sub