Microsoft 365 compilation données

Boubie à dit:

'code JB

Sub consolide_onglets()

Application.ScreenUpdating = False

‘Sheets("Consolidation").[A1].CurrentRegion.Offset(1, 0).Clear

For s = 2 To Sheets.Count

Set p = Sheets(s).[A:A].Find(what:="Domaine d'activité", LookAt:=xlWhole)

If Not p Is Nothing Then

Sheets(s).Range(p.Address).CurrentRegion.Offset(1, 0).Copy [A65000].End(xlUp).Offset(1, 0)

End If

Next s

Cliquez pour agrandir...

Boubie à dit:

J'ai même garder de A:F pour voir si je consolidais à minima les données de ces colonnes là .....et rien ne se passe!

Cliquez pour agrandir...