Bonjour à tous,
Avec filtre élaboré
En positionnant les onglets dans le même ordre que les colonnes "D,E,F"
et derrière la base de données.
Faudrait voir avec la structure du fichier réel, pour régler la macro.
Sub Activités()
Dim cL%
Application.ScreenUpdating = False
For cL = 4 To 6 'N°colonne des activités
Range("k2") = "=" & Cells(2, cL).Address(RowAbsolute:=False) & "<>""""" 'critère
Range("a1:f" & [a65000].End(xlUp).Row) _
.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Range("k1:k2"), CopyToRange:=Sheets(cL - 2).Range("a1:c1"), Unique:=False
Next cL
Range("k2").ClearContents
End Sub
Amicalement
Claude