Modif sur macro afin de copier une formule au fur et à mesure....

sheets("Archives").range("A" & N)= N-2
sheets("Archives").range("B" & N)= sheets("Archives").range("e" & N) &  " " & sheets("Archives").range("c" & N)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim L As Long
L = Target.Row
If L > 2 Then
   Application.EnableEvents = False
   If Me.Cells(L, "C").Value <> "" And Me.Cells(L, "E").Value <> "" Then
      Me.Cells(L, "A").FormulaR1C1 = "=ROW()-2"
      Me.Cells(L, "B").FormulaR1C1 = "=RC5&"" ""&RC3"
   Else
      Me.Cells(L, 1).Resize(, 2).ClearContents
      End If
   Application.EnableEvents = True
   End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim L As Long
L = Target.Row
If L > 2 Then
   Application.EnableEvents = False
   If Me.Cells(L, "C").Value <> "" And Me.Cells(L, "E").Value <> "" Then
      Me.Cells(L, "A").Value = L - 2
      Me.Cells(L, "B").Value = Me.Cells(L, "E").Value & " " & Me.Cells(L, "C").Value
   Else
      Me.Cells(L, "A").Resize(, 2).ClearContents
      End If
   Application.EnableEvents = True
   End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Me.[C:G], Target) Is Nothing Or Target.Row < 3 Then Exit Sub
Me.Cells(Target.Row, 1).FormulaR1C1 = "=IF(RC[2]="""","""",ROW()-2)"
Me.Cells(Target.Row, 2).FormulaR1C1 = "=RC5&"" ""&RC3"
End Sub

Me.Cells(Target.Row, 2).FormulaR1C1 = "=RC3&"" ""&RC4&"" sem : ""&RC6"

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Rows.Count > 1 Or Target.Columns.Count > 1 Then Exit Sub
If Target.Row < 11 Or Target.Column < 13 Or Target.Column Mod 2 = 0 Then Exit Sub
Target.Offset(, 1).FormulaR1C1 = "=IF(RC[-1]="""","""",RC[-1])"
End Sub