Les lignes a copier étant un peu plus longue sur mon fichier original ( à savoir 12 colonnes au lieu de 4 colonnes comme sur mon fichier exemple), j'ai cru bon de changer les chiffres 4 en 12 mais je pense que c'est ce changement qui fait que la formule ne fonctionne plus.
Voici ce que j'ai transposé et en gras les chiffres modifier compte tenu du nombre de colonne pour chaque ligne :
Option Explicit
Dim f As Worksheet, tablo, tabloR()
Dim i&, j&, k&
Private Sub Worksheet_Activate()
Set f = Sheets("Taux de l'évolution générale")
tablo = f.Range("A1:L" & f.Range("A" & Rows.Count).End(xlUp).Row)
k = 0
For i = 2 To UBound(tablo, 1)
If tablo(i, 12) Like "13 - Refus Bancaire(s)" Then
ReDim Preserve tabloR(1 To 12, 1 To k + 1)
For j = 1 To 12
tabloR(j, 1 + k) = tablo(i, j)
Next j
k = k + 1
End If
Next i
Range("A1").CurrentRegion.Offset(1, 0).ClearContents
Range("A2").Resize(UBound(tabloR, 2), 12) = Application.Transpose(tabloR)
End Sub