Sub Réini_06()
ActiveSheet.Unprotect
Range("L52").Select
Selection.Locked = False
Selection.FormulaHidden = False
Dim derligne As Integer
Dim i As Integer
Dim motcle As String
motcle = "*Antérieur*"
derligne = Range("A" & Rows.Count).End(xlUp).Row ' vient chercher la dernière ligne de la colonne O
For i = derligne To 1 Step -1
If Cells(i, 1).Value Like motcle Then
Cells(i, 12).Value = Cells(i + 1, 12).Value
End If
Next i
Selection.Locked = True
Selection.FormulaHidden = False
' ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
' , AllowFormattingCells:=True, AllowFormattingColumns:=True, _
' AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
' :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
' AllowDeletingRows:=True, AllowSorting:=True
'Range("P54").Select
Range("Juin_Ecart").Select
Selection.ClearContents
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
AllowDeletingRows:=True, AllowSorting:=True
Range("L54").Select
End Sub