Filtrer sur trois conditions et copier le résultat sur une nouvelle feuille

Depuis Feuille1, filtrer la colonne Nom pour n'avoir que Bob et Zoé et dont la date est différente du 16/07/18.

Copier ensuite le résultat du filtre sur une nouvelle feuille appelé Résultat.

Sub Main
  GlobalScope.BasicLibraries.loadLibrary("zBasic")
  Dim oFiltre as variant
  oFiltre = zFiltre.Demarre("Feuille1", "A1:C11")
  zFiltre.Parametre(oFiltre, "entete", "O")
  zFiltre.Colonne(oFiltre, 2, "", 2, "N", "Bob")
  zFiltre.Colonne(oFiltre, 2, "OR", 2, "N", "Zoé")
  zFiltre.Colonne(oFiltre, 1, "ET", 3, "N", "16/07/18")
  zFeuille.Cree("Résultat")
  zFiltre.Execute(oFiltre, "Résultat", "A1")
End Sub