Je l'ai modifier un peu, le problème, maintenant, le programme va uniquement chercher dans la page "JCF" les valeurs de la cellule D5, et colle la ligne dans la ligne 6, et pas dans la ligne 5, et également le programme ne prend pas en compte les lignes suivantes. Comment faire pour y parvenir??? des idées?????

Private Sub CommandButton3_Click()

Worksheets("Sheet1").Activate

Dim cellule As Range
Dim j As Range
Dim i As Integer
Dim mot As Range

y = Range("D4:D21")
Set mot = Cells.Range("D5:D21").Find(what:=y)

i = 1
For Each cellule In Worksheets("JCF").Range("D5:D200")
If cellule.Value = mot Then
cellule.EntireRow.Copy Worksheets("Sheet1").Range("A1" & i)

Set j = cellule
End If
Next
If j Is Nothing Then Exit Sub


End Sub

Problème résolu, c'est pas très académique, mais ça fonctionne, j'ai répété le nombre de fois voulu le code suivant:

Private Sub CommandButton3_Click()

Dim cellule As Range
Dim j As Range
Dim i As Integer
Dim mot As Range


Set mot = Cells.Find(Range("D5").Value)


i = 1
For Each cellule In Worksheets("JCF").Range("D4:D200")
If cellule.Value = mot Then
cellule.EntireRow.Columns("A:F").Copy Worksheets("Sheet1").Range("A5")
i = i - 1
Set j = cellule
End If
Next
If j Is Nothing Then Exit Sub

Une boucle do while/loop ou do until/loop peut être?

do while CONDITION
     CODE
loop