[Macro] recherche d'une valeur dans colonne et copie de la ligne

Sub test()

Dim Traitement As Worksheet
Set T = Worksheets("Traitement")
Fin = T.Range("A65536").End(xlUp).Row
Set Plg = T.Range(T.Cells(1, 3), T.Cells(1000, 3))

For Each c In Plg
If c = "FAUX" Then
cpt = cpt + 1
T.Cells(11, 5) = c.Offset(, -2)
T.Cells(11, 5) = c.Offset(, -1)
end if
Next c
cpt = Empty
End Sub

Option Base 1
Sub test()

 Dim F1 As Worksheet
 Set F1 = Worksheets("Traitement")
 Fin = F1.Range("A65536").End(xlUp).Row
 
 Dim Tplg()
 Tplg = F1.Range(F1.Cells(5, 1), F1.Cells(Fin, 3))

 ReDim Preserve Tplg(1 To UBound(Tplg, 1), 1 To 6)
 
 Dim cpt As Integer
 For i = 1 To UBound(Tplg, 1)
    If Tplg(i, 3) = "Faux" Then
        cpt = cpt + 1
        Tplg(cpt, 4) = Tplg(i, 1)
        Tplg(cpt, 5) = CDate(Tplg(i, 2))
        Tplg(cpt, 6) = Tplg(i, 3)
    End If
    'Application.StatusBar = i
Next i
cpt = 0

For i = 4 To 6
   ' k c'est un compteur
k = k + 1
' Copie la Colonne Du tableau en mémoire i pour colonne
   Cells(11, k + 4).Resize(UBound(Tplg, 1)) = Application.Index(Tplg, , i)
Next i

'Application.StatusBar = true
End Sub