bonjour, je vais essayer de m'y coller
les lignes du style
Sub
Nouveau_dossier()
nom des macros appelées (les macros commencent par
sub et finisent par
end sub
les lignes du style
Sheets('
Liste').Select
on selectionne la
page sur laquele on va travailler
les lignes du style
Range('
A16: F22').Select
de même , on selectionne la plage de cellules
les lignes du style
Selection.Copy
on applique
coupier à la selection
les lignes du style
derlin = Range('
A65536').
End(xlUp).Row
on cherche la derniere ligne ecrite de la colonne A
derlinétant un nom que l'on donne arbitrairement.
les lignes du style
Application.CutCopyMode =
False
on deselectionne la plage
les lignes du style
Application.ScreenUpdating =
False
Application.ScreenUpdating =
True
on fige l'image à l'écran pendant que la macro travaille et on réactive l'image à la fin de la macro
les lignes du style
If Cells(n, 5) = '
PERDU'
on definit une condition si la cellule est 'perdu' alors....
les lignes du style
Rows(y).
Delete
efface les lignes selectionnées
voilà en gros les principales lignes qui reviennent... bon courage pour l'apprentissage du livre
:lol: à+