Microsoft 365 Rechercher un statut sur les autres onglets

Private Sub Worksheet_Activate()
Dim i&, der&, t, n&, j&
   Application.ScreenUpdating = False
   Cells.Delete
   Sheets("Janvier").Range("a1:i1").Copy Sheets("Dossier en attente").Range("a1")
   For i = Sheets("Janvier").Index To Sheets("Janvier").Index + 11
      With Sheets(i)
         der = .UsedRange.Row + .UsedRange.Rows.Count - 1
         If der > 1 Then .Range("a2:i2").Resize(der - 1).Copy Sheets("Dossier en attente").Cells(Rows.Count, "a").End(xlUp).Offset(1)
      End With
   Next i
   With Sheets("Dossier en attente")
      t = .Range("a1").CurrentRegion: n = 1
      For i = 2 To UBound(t)
         If t(i, 4) = "Répondue" Then n = n + 1: For j = 1 To UBound(t, 2): t(n, j) = t(i, j): Next
      Next i
      .Rows("2:" & Rows.Count).Clear
      .Range("a1").Resize(n, UBound(t, 2)) = t
      .Range("a1").CurrentRegion.Borders.LineStyle = xlContinuous
      .Rows(1).Font.Size = 13: .Rows(1).Font.Bold = True
      .Range("a1").CurrentRegion.EntireColumn.AutoFit
   End With
End Sub