Copier coller ligne si condition... HELLLP PLZ

Bonjour,

je galère encore en VBA, si quelqu'un pourrait m'aider svp..
Je voudrai en fait copier coller une ligne si la cellule Z de la feuille "entrée-sortie" est >= la cellule C8 de la feuille détails.

Deux problèmes se posent : la fonction ne s'exécute pas toute seule
Il me duplique la ligne à copier alors que je veux que si elle existe, il ne la copie pas

voilà ce que j'avais écris

Sub Détails()
'
Dim Place As Long
' 1ère ligne vide
Place = 1 + Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row
'rechercher les cellules non vides
Worksheets("entrée-sortie").Select
ligES = 4
While Cells(ligES, 1) <> ""
ligES = ligES + 1
Wend
'
For i = 4 To ligES - 1
'workSheets("entrée-sortie").Range("A" & n) , Sheets("entrée-sortie").Range("A" & n).End(xlToRight)).Copy
Sheets("détails").Select
If Sheets("entrée-sortie").Range("Z" & i) >= Sheets("détails").Range("c8") Then
Worksheets("entrée-sortie").Range("A4:DQ4").Copy _
Destination:=Worksheets("détails").Range("A" & Place)
Place = Place + 1
Application.DisplayAlerts = True
End If
Next i

End Sub


et voilà le code en entier de toute la page:

Private Sub ComboBox1_Change()
Dim i As Long, drLig As Long
Dim maFeuil As Worksheet

If ComboBox1 = "" Then Exit Sub
'ignorer erreur feuille existante
On Error Resume Next
'Si la feuille n'existe pas
If Not FeuilleExiste(ThisWorkbook, ComboBox1) Then
Application.DisplayAlerts = False
'on fait une copie de la feuille active
ActiveSheet.Copy after:=Sheets(Sheets.Count)
'on affecte cette nouvelle feuille à la variable maFeuil
Set maFeuil = ActiveSheet
'on la renomme
maFeuil.Name = ComboBox1
'On supprime les lignes inutiles
drLig = Range("A" & Rows.Count).End(xlUp).Row
For i = drLig To 11 Step -1
If UCase(maFeuil.Range("J" & i).Value) Like "*DEJA*" Then maFeuil.Rows(i).Delete
Next
Application.DisplayAlerts = True
End If
'
Dim Place As Long
' 1ère ligne vide
Place = 1 + Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row
'rechercher les cellules non vides
Worksheets("entrée-sortie").Select
ligES = 4
While Cells(ligES, 1) <> ""
ligES = ligES + 1
Wend
'
For i = 4 To ligES - 1
'workSheets("entrée-sortie").Range("A" & n) , Sheets("entrée-sortie").Range("A" & n).End(xlToRight)).Copy
Sheets("détails").Select
If Sheets("entrée-sortie").Range("Z" & i) = Sheets("détails").Range("c8") Then
Worksheets("entrée-sortie").Range("A4:DQ4").Copy _
Destination:=Worksheets("détails").Range("A" & Place)
Place = Place + 1
Application.DisplayAlerts = True
End If
Next i

End Sub

'On y ajoute la fonction de Bbil :
Function FeuilleExiste(wk As Workbook, stFeuille) As Boolean
On Error Resume Next
FeuilleExiste = Not (wk.Sheets(stFeuille) Is Nothing)
End Function

'lorsque l'on active la feuille (quand elle est active)
Private Sub Worksheet_Activate()
Dim i As Byte

Range("A5").Value = ComboBox1
'on vide la liste des mois
ComboBox1.Clear
With ComboBox1
'et on la remplit
For i = 1 To 12
.AddItem Format(CDate("01/" & i & "/2000"), "mmmm")
Next i
End With
End Sub

MERCI