Sub toto_2()
Dim FinCol As Long, FinLig As Long, vf As Boolean, plg As Range, vPlg()
With ActiveSheet.Range("C4") '...ou tout autre feuille et cellule que l'on voudra. '***
If IsEmpty(.Cells) Then vf = True: .Value = 0
FinCol = .Parent.Cells(.Row, .Parent.Columns.Count).End(xlToLeft).Column
FinLig = .Parent.Cells(.Parent.Rows.Count, .Column).End(xlUp).Row
If vf Then .Value = Empty
.Parent.Range(.Cells, .Parent.Cells(FinLig, FinCol)).Select
End With
End Sub