Dim Lg As Integer, Cel As Range
Sub ATD_Bouton1_Cliquer()
Lg = Range("l" & Rows.Count).End(xlUp).Row
If Cells(Lg, "l") Like "Mois*" Then Lg = Lg + 1
Range("L7:P" & Lg).Copy Range("L8")
Range("L8:P8").Value = Range("L8:P8").Value
For Each Cel In Range("L7:P7")
If Not Cel.HasFormula Then Cel.ClearContents 'Effacement de la cellule Cel si elle ne contient pas de formule
Next
Application.CutCopyMode = False
End Sub