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

Option Explicit

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 > 21 Or Target.Column Mod 2 = 0 Then Exit Sub
Target.Offset(, 1).Formula = "=IF(RC[-1]="""","""",RC[-1])"
If Target = "" Then Target.Offset(, 1) = ""
End Sub

Private Sub Worksheet_Change(ByVal R As Range)
  Select Case R.Column
    Case Is = 13, 15, 17, 19, 21
      If R.Row > 10 Then  R(1, 2).Formula = "=IF(RC[-1]="""","""",RC[-1])"
  End Select
End Sub

Private Sub Worksheet_Change(ByVal R As Range)
  Application.EnableEvents = 0
  Select Case R.Column
    Case Is = 13, 15, 17, 19, 21: If R.Row > 10 Then R(1, 2) = R
    Case Is = 14, 16, 18, 20, 22: If R.Row > 10 Then R(1, 0) = R
  End Select
  Application.EnableEvents = 1
End Sub

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 < 6 Or Target.Column > 29 Or Target.Column Mod 2 = 0 Then Exit Sub
If Cells(9, Target.Column + 1).Value <> "ò" Then Exit Sub
Target.Offset(, 1).FormulaR1C1 = "=IF(RC[-1]="""","""",RC[-1])"
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim R As Range
  Application.EnableEvents = 0
  For Each R In Target.Cells
    If R.Row > 10 Then
        If Cells(9, R.Column).Value = "ò" Then R(1, 0) = R
        If Cells(9, R.Column + 1).Value = "ò" Then R(1, 2) = R
    End If
  Next R
  Application.EnableEvents = 1
End Sub