Bonjour,
Déjà un grand merci pour ton aide. J'ai essayé, mais lorsque tu modifie la liste en enlevant les absents et rajoutant les présents , ça ne fonctionne pas.
Dans ma macro, je copie de N13 à N18 et je colle à la suite ( En rouge) . J'aimerais coller les 4 cellules dans la colonnes B à la fin de la liste, la première ligne vide. Il faudrait rajouter quelque chose dans mon code.
Merci
'Coller les valeurs de N13 à N16
Sheets("Personne").Select
Range("N13:N16").Select
Selection.Copy
Range("G17:G20").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B15:B18").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False