Dim i As Byte
Application.Goto Sheets('RESULTAT').Range('A1')
For i = 1 To Range('C65536').End(xlUp).Row
If Cells(i, 3).Value = NomFeuille Then
Range('A' & i & ':B' & i & ',D' & i).Select
Selection.Copy
Application.Goto Sheets(NomFeuille).Range('A9')
If Sheets(NomFeuille).Cells(10, 1).Value = '' Then
Sheets(NomFeuille).Cells(10, 1).Select
ActiveSheet.Paste
Sheets('RESULTAT').Select
Else
[color=#0000FF]Selection.End(xlDown).Select
Selection.Offset(1, 0).Select
ActiveSheet.Paste
Sheets('RESULTAT').Select[/color]
End If
End If
Next i