With ThisWorkbook.Worksheets("Feuil2")
'On efface la feuille de destination
.UsedRange.Clear
'On copie l'ensemble des données de la feuille source vers la feuille destination
ThisWorkbook.Worksheets("Feuil1").UsedRange.Copy .Range("A1")
'On filtre sur les semaines différentes de Sem1 et de Sem2
LastLig = .Cells(.Rows.Count, 1).End(xlUp).Row
.Range("AH1:AH" & LastLig).AutoFilter Field:=34, Criteria1:="<>" & Sem1, Criteria2:="<>" & Sem2, Operator:=xlAnd
'J'ai modofié le num de colonne
'On efface les lignes ne correspondants pas aux 2 semaines
If .Range("AH1:AH" & LastLig).SpecialCells(xlCellTypeVisible).Count > 1 Then .Range("AH2:AH" & LastLig).SpecialCells(xlCellTypeVisible).EntireRow.Delete
.ShowAllData
'On marque par un X les lignes doublons (sur Ref et sur MEC)
With .Range("AI2:AI" & LastLig)
.Formula = "=If(COUNTIFS($B$2:$B$" & LastLig & ",$B2,$T$2:$T$" & LastLig & ",$T2)=2,""X"","""")"
.Value = .Value
End With
'On efface les lignes doublons (filtre sur les X de marquage
.Range("AI1:AI" & LastLig).AutoFilter Field:=35, Criteria1:="X"
'Jai modifié le num de colonne
End With
Partager