Private Sub Résultat(Ws As Worksheet)
'Avec la Fuille "Résultat Evaluation", dont le CodeName est Feuil46 à gauche de "Résultat Evaluation"
With Feuil46
'On cherche la dernière ligne vide,
'Lorsque l'on met un . devant [ ou Cells( ce qui suit est attribué à la Feuil46 (définit plus haut)
'Donc on cherche la dernière ligne de la colonne B, on part de la dernière ligne de la feuille (65536 est le nb de ligne dans un fichier xls)
'puis on remonte jusqu'à trouver la première ligne pleine, d'où le xlUp, row nous donne le N° de ligne
'(2) signifie que l'on veut celle qui est juste dessous (donc la première ligne vide)
i = .[B65536].End(xlUp)(2).Row
'Puisque tu as des informations avant ta ligne 35,
'Si i est inférieur à 35 alors on lui donnes cette valeur, pour copier après la ligne 35
If i < 35 Then i = 35
'Pour la feuille attribuée à cette macro, admettons Feuil1 (c'est le Ws dans Private Sub Résultat(Ws as Worksheet)
'On copie la plage A1 à F74 de Feuil1 dans la Feuil46 (puisqu'on a le . )
'dans la colonne 1 (donc A) et la dernière cellule vide trouvée auparavant i
Ws.[A1:F74].Copy .Cells(i, 1) 'La plage est copiée
'Suppression des flèches
'Avec .[B65536].End(xlUp)(2).Row , on cherche la dernière ligne vide de la colonne B de la Feuil46
'On va attribuée à j toutes les lignes de la dernière cellule trouvée en remontant (step -1)
'jusqu'à la dernière cellule trouvée auparavant (i)
'Par exemple, c'est la 2ème fois que l'on clique sur cette macro, on a donc 35 + 2 x 74 lignes donc 183
'i = 109 , dernière ligne 183 on va donc remonter toutes les lignes, de 183 à 109, pour voir si la flèche existe
For j = .[B65536].End(xlUp)(2).Row To i Step -1
'Pour toutes les valeurs de j de la colonne B on regarde les 2 premières valeurs
'Si elles sont égalent à "è " (ça correspond à la flèche en Wingdings) alors on supprime la ligne entière
If Left(.Cells(j, 2), 2) = "è " Then .Rows(j).EntireRow.Delete
'On passe à j suivant toujours en remontant
Next
End With
End Sub
