Sub EnCours()
Application.ScreenUpdating = False 'évite le rafraîchissement de l'écran pendant l'exécution
Set cible = Sheets("MESURES EN COURS") 'ça, ça va?
'à la ligne suivante, Application.CountA correspond à NBVAL. Permet de définir une sélection (resize) au départ de A2,
'comprenant le nombre de lignes et de colonnes et d'effacer le contenu
cible.[A2].Resize(Application.CountA(cible.[B:B]), Application.CountA(cible.[1:1])).ClearContents
With Sheets("game") 'pour ne pas l'écrire à chaque fois
For Each c In .[A2].Resize(Application.CountA(.[B:B]) - 1, 1) 'pour chaque cellule de la plage qui s'étend de
'A2 à la dernière cellule de cette même colonne A, de la feuille "game"
'ligne suivante: "cible.[A50000].End(xlUp).Offset(1, 0)" au départ de A50000 et en remontant, on "pointe" sur
'la dernière cellule non-vide et on décale d'une ligne
If c = "en cours" Then c.EntireRow.Copy cible.[A50000].End(xlUp).Offset(1, 0)
Next c
End With
Application.ScreenUpdating = True
End Sub