salut Boo2bafoot,
exact, tu as raison
et notre ami Artica aura corrigé tout seul
soit
lastcol=LastCol = ActiveSheet.UsedRange.Columns.Count+1
LastLine = ActiveSheet.UsedRange.Rows.Count
Range(Cells(1, LastCol ), Cells(LastLine, LastCol)) = 50
soit
lastcol=LastCol = ActiveSheet.UsedRange.Columns.Count
LastLine = ActiveSheet.UsedRange.Rows.Count
Range(Cells(1, LastCol +1), Cells(LastLine, LastCol+1)) = 50
ou encore
lastCol = ActiveSheet.UsedRange.Columns.Count + 1
lastline = ActiveSheet.UsedRange.Rows.Count
Cells(1, lastCol).Resize(lastline) = 50