Bonjour,
C'est bien le nom du compte que je veux mettre en gras sur touts les feuilles.
J'ai essayé de trier les absents de la même manière en créant des feuilles AMAIRIE,ASYN,AEPCI,ACCAS, en m'appuyant sur la macro du module 1, mais ça ne fonctionne pas, je les retrouve deux fois dans les absents.
Bonjour,
J'ai essayé de modifier la macro de la façon suivante:
Sub Transfert()
Set sh1 = Sheets("COLL")
LastRw1 = sh1.Cells(Rows.Count, 1).End(xlUp).Row
refFeuil = Array("MAIRIE", "CCAS", "EPCI", "SYN", "Département", "présent", "absent")
refFeuil_1 = Array("AMAIRIE", "ACCAS", "AEPCI", "ASYN", "ADépartement")
refColl = Array("MAIRIE", "CCAS", "EPCI", "SYNDICAT", "Département", "")
présence = Array("x", "")
If Not sh1.FilterMode Then sh1.Range("A3:K3").AutoFilter
Application.ScreenUpdating = False
For p = 0 To UBound(présence)
For i = 0 To UBound(refColl)
Select Case présence(p)
Case "x": Set sh2 = Sheets(refFeuil(i))
Case "": Set sh2 = Sheets(refFeuil_1(i)")
Mais ça ne colle pas