XL 2013 Incrémenter une liste à partir d'une cellule de référence variable

Option Explicit

Sub Essai()
  If ActiveSheet.Name <> "Données d'entrée" Then Exit Sub
  Dim n&: n = Cells(Rows.Count, 16).End(3).Row
  If n = 1 And IsEmpty([P1]) Then Exit Sub
  Dim col%, lig&, i&: Application.ScreenUpdating = 0
  col = 2: Do While Cells(1, col) <> "OUI" And col <= 11: col = col + 1: Loop
  If col = 12 Then Exit Sub
  lig = 2: Do While Cells(lig, 1) <> "OUI" And lig <= 12: lig = lig + 1: Loop
  If lig = 13 Then Exit Sub
  For i = 1 To n
    Cells(lig, col) = Cells(i, 16): lig = lig + 1
    If lig = 13 Then lig = 2: col = col + 1: If col = 12 Then Exit Sub
  Next i
End Sub

Option Explicit

Sub Essai()
  If ActiveSheet.Name <> "Données d'entrée" Then Exit Sub
  Dim n&: n = Cells(Rows.Count, 16).End(3).Row
  If n = 1 And IsEmpty([P1]) Then Exit Sub
  Dim col%, lig&, i&: Application.ScreenUpdating = 0
  col = 2: Do While Cells(1, col) <> "OUI" And col <= 11: col = col + 1: Loop
  If col = 12 Then Exit Sub
  lig = 2: Do While Cells(lig, 1) <> "OUI" And lig <= 12: lig = lig + 1: Loop
  If lig = 13 Then Exit Sub
  [B2:K12].ClearContents
  For i = 1 To n
    Cells(lig, col) = Cells(i, 16): lig = lig + 1
    If lig = 13 Then lig = 2: col = col + 1: If col = 12 Then Exit Sub
  Next i
End Sub

Option Explicit

Dim plg As Range

Private Sub Job(cel As Range)
  Application.EnableEvents = 0
  plg.Value = "NON": cel = "OUI"
  Application.EnableEvents = -1
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
  With Target
    If .CountLarge > 1 Then Exit Sub
    Application.ScreenUpdating = 0
    Set plg = [A2].Resize(11)
    If Not Intersect(Target, plg) Is Nothing _
      Then If .Value = "OUI" Then Job Target
    Set plg = [B1].Resize(, 10)
    If Not Intersect(Target, plg) Is Nothing _
      Then If .Value = "OUI" Then Job Target
  End With
End Sub