Sub Doublon()
For lignes = 2 To Cells(Rows.Count, 1).End(xlUp).Row Step 1
If WorksheetFunction.CountIfs(Range("A2:A" & lignes), Range("A" & lignes), Range("C2:C" & lignes), Range("C" & lignes)) = 2 And Range("B" & lignes) = "Vacation" Then
Rows(lignes - 1).Delete
End If
Next lignes
End Sub