même problème
Arf
colonnemax = Range("A1").SpecialCells(xlCellTypeLastCell).Column
'MsgBox colonnemax
For x = 1 To colonnemax
Range(Cells(1, x), Cells(lignemax2, x + 12)).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Sheets("Feuil2").Range("A1:A2"), Unique:=False
Range(Cells(2, x + 1), Cells(lignemax2, x + 1)).Select
If Not IsEmpty(Application.Selection) Then
Range(Cells(2, x + 1), Cells(lignemax2, x + 1)).Copy Worksheets("Feuil2").Range("B2")
End If
x = x + 12
Next x
j'ai tenté un truc comme ca comme filtre, mais ca colle pas non plus...
merci de tes efforts
Navré qu'ils n'ont pas payés...