Sub AllerFinNoms()
Sheets("beneficiaire").Select
ActiveSheet.Unprotect
DerCell = Range("A1").End(xlDown).Address
Range("A65536").End(xlUp).Offset(0, 0).Select
Selection.Offset(1, 0).Activate
If Selection.Borders(xlEdgeBottom).LineStyle <> xlContinuous Then
Call InsertARowNoms
End If
End Sub