[COLOR="RoyalBlue"]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 And Target.Row > 2 Then
If IsEmpty(Target.Offset(0, 1)) And Not IsEmpty(Target.Offset(-1, 0)) Then
Application.EnableEvents = False
sauv = Target
Target.Offset(-1, 0).EntireRow.Copy Target
On Error Resume Next
Target.EntireRow.SpecialCells(xlCellTypeConstants, 23).ClearContents
Target = sauv
Application.EnableEvents = True
End If
End If
End Sub[/COLOR]