' A partir de la feuille de W
With Sheets("Feuil1")
' Pour chaque élément de l'Array (Chaque ligne de Feuil)
For j = LBound(Vill) To UBound(Vill)
' On vérifie si le nom de l'entité à rapppeler correspond à NomVille
If Vill(j, 1) = NomVille Then
' Et si c'est le cas on copie toute la ligne dans la feuille cible (WC)
.Range(.Cells(j + 1, 1), .Cells(j + 1, 7)).Copy WC.Cells(ii, 1)
' Et on incrémente le compteur de ligne
ii = ii + 1
End If
Next j
End With