boucle sur une colone & condition si en vba

Sub macro()
Dim calcul$, cell As Range, nombre
nombre = Sheets("Feuil1").Cells(3, "D").Value
With Sheets("Feuil2")
    For Each cell In .Range(.Cells(1, "C"), .Cells(Rows.Count, "C").End(xlUp))
        If cell = nombre Then
        calcul = calcul & ";" & "E" & cell.Row
        End If
    Next cell
    'destination
    .[L1] = Mid(calcul, 2, 9 ^ 9)
End With
End Sub

Sub macro()
'
 Dim calcul As String
 Dim ligne As Integer, nombre As Integer, DerLig As Integer

 nombre = Worksheets("Feuil1").Cells(3, 4).Value 'colonne D !

 With Worksheets("Feuil2")
 DerLig = .Range("C" & Rows.Count).End(xlUp).Row

 For ligne = 1 To DerLig
    If .Range("C" & ligne).Value = nombre Then
        calcul = .Range("E" & ligne).Value
    End If
 Next
    
 End With

'calcul = [e2]
' destination
'[l1] = calcul

End Sub

Sub macro1()
 Dim calcul As String
 Dim ligne As Integer, nombre As Integer, DerLig As Integer

 nombre = Worksheets("Feuil1").Cells(3, 4).Value 'colonne D !

 With Worksheets("Feuil2")
 DerLig = .Range("C" & Rows.Count).End(xlUp).Row

 For ligne = 1 To DerLig
    If .Range("C" & ligne).Value = nombre Then
        calcul = calcul & Chr(10) & .Range("E" & ligne).Value
    End If
 Next
 MsgBox (calcul)
 End With
End Sub

Sub macro1()
 Dim calcul As String
 Dim ligne As Integer, nombre As Integer, DerLig As Integer, x As Integer

 nombre = Worksheets("Feuil1").Cells(3, 4).Value 'colonne D !

 With Worksheets("Feuil2")
 DerLig = .Range("C" & Rows.Count).End(xlUp).Row

 For ligne = 1 To DerLig
    If .Range("C" & ligne).Value = nombre Then
        x = x + 1
        .Range("L" & x).Value = .Range("E" & ligne).Value
    End If
 Next
 End With
End Sub