Array et affichage contenu

Bonjour à tous,

j'ai une plage de données récupérée via le code suivant

 Set WP_Array = .Range.Rows(d.Row).Resize(Fin)

si je tente un .select cela me sélectionne bien la bonne plage de donnée approprié comptabilisant dans mon test 5 rows

Rentrant les données dans un autre fichier je procède comme ceci

Count_WP = WP_Array.Rows.Count

If (Count_WP >= 1) Then
Workbooks(Timesheet_Empty).Worksheets("Projet").Range("K28") = WP_Array.Cells(1, 3)
Workbooks(Timesheet_Empty).Worksheets("Projet").Range("J28") = WP_Array.Cells(1, 4)
End If

If (Count_WP >= 2) Then
Workbooks(Timesheet_Empty).Worksheets("Projet").Range("K29") = WP_Array.Cells(2, 3)
Workbooks(Timesheet_Empty).Worksheets("Projet").Range("J29") = WP_Array.Cells(2, 4)
End If
etc

j'ai été obligé d'effectuer ce count car meme si ma plage est bonne et si j'arrive à WP_Array.Cells(6, 3) alors ca m'affiche les données alors que je n'ai que 5 rows dans ma plage, la ligne suivante étant pour autre chose

Aussi 2 questions

1) pourquoi me ressort t'il des données hors de l'array de base?

2) est il optimal de fonctionner comme cela ou peut on faire mieux, ce qui me parait vraisemblable

Merci à vous pour vos conseils

Bonjour,

Mon conseil est de joindre le fichier correspondant.

A+