Private Sub Worksheet_Change(ByVal Target As Range)
'Feuil1 est le CodeName de la 1ère feuille
If Intersect(Target, [C:I]) Is Nothing Then Exit Sub
Feuil1.Rows("13:" & Feuil1.Rows.Count).Delete 'RAZ
With Range("C3:I" & Range("C" & Rows.Count).End(xlUp)(2).Row)
Feuil1.[C12:I12].Resize(.Rows.Count) = .Value 'transfère les valeurs
[K4:S4].Copy Feuil1.Cells(12 + .Rows.Count, 3)
If .Rows.Count > 1 Then
Feuil1.[A12].Copy Feuil1.[A12].Resize(.Rows.Count - 1) 'formules
Feuil1.[M12:IV12].Copy Feuil1.[M12:IV12].Resize(.Rows.Count - 1) 'formules
Feuil1.Rows(12).AutoFill Feuil1.Rows(12).Resize(.Rows.Count - 1), xlFillFormats
End If
End With
End Sub