Bonsoir,
Voici une idée de code, mais tous les cas "de protection" ne sont pas pris en compte comme par exemple l'ajout "en première ligne" !
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells(1, 1) = "" And Target.Row > 17 Then
Target.Cells(1, 1).Offset(-1).Resize(1, 52).Copy Destination:=Target.Cells(1, 1)
Target.Cells(1, 1).Resize(1, 52).SpecialCells(xlCellTypeConstants) = ""
End If
End Sub
@ bientôt
LouReeD