Recherche dans une liste

Bonjour à tous,

Je souhaite savoir si la valeur que je recherche est présent dans une plage, si ce n'est pas le cas, je veux ajouter cette valeur cherchée à la suite de ma plage
Et ainsi de suite, à savoir que si j'ai rajouté une valeur à ma plage, il faut agrandir la plage de recherche de 1.

Voici le code (qui ne fonctionne pas : erreur 400)
Je suis sur Mac et je ne sais pas si c'est pour ça, mais l'erreur ne me pointe pas une ligne en particulier ...
Le nom de l'onglet n°1 de mon classeur est : "JUIN-2018"

But de la macro : rajouter un nom dans une liste (onglet "pna") si en comparant 2 dates, j'ai moins de 15 jours d'écart.

Ci-après, le fichier Excel en question : https://cjoint.com/c/HFyukNsL8mI

Sub listepna()

Dim nb As Long
Dim maPlage As Range
Dim maCellule As Variant
nb = 500

Worksheets("pna").Cells(2, 3).Select
For i = 2 To nb
    If Worksheets("pna").Cells(1, 1) - Worksheets(1).Cells(i, 4) <= 15 Then
        Set maPlage = Worksheets("pna").Range(Cells(1, 3), Cells(i - 1, 3))
        maCellule = Worksheets(1).Cells(i, 3)
        
        If IsError(WorksheetFunction.Match(maCellule, maPlage, 0)) Then
            ActiveCell = Worksheets(1).Cells(i, 3)
            ActiveCell.Offset(1, 0).Select
        End If
    End If
Next

End Sub

Merci d'avance pour votre aide