Sub Enregistrement()
' Colonne non remplie
Lc = Worksheets("Enregistrement").Cells(1, Worksheets("Enregistrement").Columns.Count).End(xlToLeft).Column + 1
'
Worksheets("Logiciel").[B01:B04].Copy Worksheets("Enregistrement").Cells(1, Lc)
Worksheets("Logiciel").[B18:B23].Copy Worksheets("Enregistrement").Cells(5, Lc)
Worksheets("Enregistrement").Columns(Lc).AutoFit
Worksheets("Logiciel").[B18:B23].ClearContents
Application.CutCopyMode = False
ActiveWorkbook.Save
End Sub