Mise à jour des données et formules sur plusieurs données

Private Sub Worksheet_Change(ByVal Target As Range)
Dim P As Range
Set P = Intersect(Range("H2:S" & Rows.Count), Me.UsedRange.EntireRow)
If Not P Is Nothing Then
  Application.EnableEvents = False
  P.Rows(1).Copy P
  Application.EnableEvents = True
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim P As Range
Set P = Intersect(Range("H2:S" & Rows.Count), Me.UsedRange.EntireRow)
If Not P Is Nothing Then
  Application.EnableEvents = False
  P.Rows(1).AutoFill P
  Application.EnableEvents = True
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim derlig&
Application.ScreenUpdating = False
Application.EnableEvents = False
If [A1] = "" Then [A1] = "Titre1" 'sécurité
derlig = [A:G].Find("*", , xlValues, , xlByRows, xlPrevious).Row
If derlig = 1 Then derlig = 2
[H2:S2].AutoFill Range("H2:S" & derlig)
With Me.UsedRange.Rows
  If .Count > derlig Then Range("A" & derlig + 1 & ":S" & .Count).Delete xlUp
End With
Application.EnableEvents = True
With Me.UsedRange: End With 'actualise la barre de défilement verticale
End Sub