Sub sup_lig()
Application.Goto Sheets('feuil1').Range('A65536')
Selection.End(xlUp).Select
Selection.Offset(-6, 0).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.ClearContents
End Sub