faire un tableau avec condition

Private Sub ComboBox1_Change()
Dim F As Worksheet
Dim Ligne As Long, Col As Integer

Set F = Sheets("Feuil2")
Ligne = 11
Col = 7

With F
    .Range("G11:H65536").Clear
    For n = 7 To Range("A65536").End(xlUp).Row
        If Range("C" & n) = ComboBox1 Then
            Range("A" & n & ":B" & n).Copy Destination:=.Cells(Ligne, Col)
            Ligne = Ligne + 1
        End If
    Next n
    .Range("G11:H" & .Range("G65536").End(xlUp).Row).Borders.LineStyle = xlContinuous
End With
End Sub

Sub combo()
Sheets("Feuil1").ComboBox1.Clear
Set dico = CreateObject("Scripting.dictionary")
For n = 1 To Sheets("toto").Range("A65536").End(xlUp).Row
x = Sheets("toto").Range("A" & n)
dico(x) = x
Next
Sheets("Feuil1").ComboBox1.List = dico.keys
End Sub

.....
For n = 15 To Sheets("STATUS").Range("F65536").End(xlUp).Row
If Sheets("STATUS").Range("F" & n) = ComboBox1 Then
Sheets("STATUS").Range("C" & n & ":D" & n).Copy Destination:=Cells(ligne, col)
....