bloquer une cellule

=DECALER('TIRAGE T1'!$A$9;LIGNE();DECALER('TIRAGE T1'!$D$9;LIGNE();)=2)

=DECALER('TIRAGE T1'!$A$9;LIGNE()-1;DECALER('TIRAGE T1'!$D$9;LIGNE()-1;)=2)

Sub FeuilleSuivante()
Dim n%, i%, ref As Range, suplig As Range, supcol As Range
n = Application.CountA(Rows(1)) 'nombre d'équipes
If Application.CountA(Range(Cells(n + 4, 1), "A65536")) <> Application.CountA(Range(Cells(n + 4, 3), "C65536")) _
  Then MsgBox "Il manque des résultats...", 48: Exit Sub
With Sheets(ActiveSheet.Index + 1) 'feuille suivante
  .Cells.Clear
  Rows("1:" & n + 3).Copy .Range("A1") 'copie du tableau croisé
  On Error Resume Next 'au cas où ref n'existe pas...
  For i = 2 To n + 1
    Set ref = Range(Cells(n + 4, 1), "B65536").Find(Cells(i, 1), LookIn:=xlValues, LookAt:=xlWhole)
    If ref.Column <> Cells(ref.Row, 3) Then
      Set suplig = Union(.Rows(i), IIf(suplig Is Nothing, .Rows(i), suplig))
      Set supcol = Union(.Columns(i + 1), IIf(supcol Is Nothing, .Columns(i + 1), supcol))
    End If
  Next
  supcol.Delete
  Cells(n + 3, 3).Copy .Cells(n + 3, 3) 'la ligne précédente peut en effet effacer cette cellule
  suplig.Delete
  .Activate
End With
End Sub

If Application.CountA(Range(Cells(lig, 3), "C65536")) Then _
  MsgBox "Tirage impossible avec des résultats en colonne C...", 48: Exit Sub