Identifier la dernière colonne non vide (source) :
dercol = Cells(1,Cells.Columns.Count).End(xltoLeft).Column