Filtre avec 2 variables dans 2 colonnes

Bonjour à tous,

Petite colle aujourd'hui!

Dans le fichier en pièce jointe, je tente de réaliser une filtre dans un onglet afin de sortir des informations avec 2 variables dans 2 colonnes différents pour les faire imprimer par la suite.

Je m'explique:

Dans l'onglet A

Je dois sortir les dates avec les informations à laquelle le l'individu A a réalisé le Module 1 et ABSENCE M1.
Cette information peut se retrouvez à 2 endroits : N27:N206 & Y27:Y206

Ensuite, je veux avoir la possibilité de changer mon filtre pour un autre module ou pour au autre onglet. exemple : l'onglet C avec le filtre Module 3 & ABSENCE - M3.

Pouvez-vous m'aider.

Merci, je me casse la tête depuis une semaine.

bonsoir,

Sub Belanpat()
     Dim MonModule
     MonModule = InputBox("quel module ?", "Filtrer votre plage")
     If Len(MonModule) = 0 Then Exit Sub
     With ActiveSheet.Range("B26").CurrentRegion
          .AutoFilter
          .AutoFilter 13, MonModule
          .AutoFilter 24, "<>" & MonModule
     End With
End Sub