Ressortir une liste suivant des critères differents

Option Explicit
Dim colonne As Integer
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Range("D22").Value = "Semaine"
Range("E22").Value = Target.Value
colonne = Target.Column
For_X_to_Next_Ligne
End Sub
Sub For_X_to_Next_Ligne()
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
Dim line As Integer
line = 26
    Set FL1 = Worksheets("Feuil1")
    NoCol = colonne
    For NoLig = 7 To Split(FL1.UsedRange.Address, "$")(4)
        Var = FL1.Cells(NoLig, NoCol)
        If Var = "" Then
        Else
       FL1.Range("C" & NoLig + 1 & ":F" & NoLig + 1).Copy _
    Destination:=FL1.Range("C" & line)
        line = line + 1
        End If
    Next
    Set FL1 = Nothing
End Sub