Traitement de données par macros...

Sub Extract()
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = InputBox("Nom de la feuille : ", "Nouvelle Feuille", "A" & Sheets.Count + 1)
With Sheets("A")
  ld = 2
  For lg = 2 To .Range("A65536").End(xlUp).Row
    Set client = ActiveSheet.Range("A:A").Find(.Cells(lg, 1), LookIn:=xlValues, lookat:=xlWhole)
    Set debut = ActiveSheet.Range("B:B").Find(.Cells(lg, 10), LookIn:=xlValues, lookat:=xlWhole)
    Set fin = ActiveSheet.Range("C:C").Find(.Cells(lg, 11), LookIn:=xlValues, lookat:=xlWhole)
    If Not client Is Nothing And Not debut Is Nothing And Not fin Is Nothing Then GoTo Suite
      ActiveSheet.Cells(ld, 1) = .Cells(lg, 1)
      ActiveSheet.Cells(ld, 2) = .Cells(lg, 10)
      ActiveSheet.Cells(ld, 3) = .Cells(lg, 11)
    ld = ld + 1
Suite:
  Next
End With
[COLOR="Navy"][B]With ActiveSheet
  [COLOR="Red"].Range("B:C").NumberFormat = "dd/mm/yyyy"[/COLOR]
  For lg = .Range("A65536").End(xlUp).Row To 2 Step -1
    If .Cells(lg, 1) = .Cells(lg - 1, 1) And .Cells(lg, 2) = .Cells(lg - 1, 2) And _
    .Cells(lg, 3) = .Cells(lg - 1, 3) Then
      Rows(lg & ":" & lg).Delete
    End If
  Next
End With[/B][/COLOR]
End Sub