Erreur de compilation

Sub macro1()
Dim admissible As String
Dim nonadmissible As String
Dim i As Long
Dim j As Long
Dim k As Long
Dim l As Long
Dim m As Long
Dim n As Long
Dim x As Long
Dim nbadmissible As Long
Dim nbnonadmissible As Long

x = Range("A1").Offset.End(xlDown).Row - 1

For i = 1 To x
If Range("A1").Offset(i, 6) = "Oui" Then
nbadmissible = nbadmissible + 1
End If
Next i

ReDim Preserve admissible(nbadmissible, 1 To 3)
For i = 1 To x
If Range("A1").Offset(i, 6) = "Oui" Then
j = j + 1
admissible(j, 1) = Range("A1").Offset(i)
admissible(j, 2) = Range("A1").Offset(i, 1)
admissible(j, 3) = Range("A1").Offset(i, 7)

End If


Next i

Sheet.Add
activatesheet.Name = "admissible"

For k = 1 To j
Range("A1").Offset(k - 1) = admissible(k, 1)
Range("A1").Offset(k - 1, 1) = admissible(k, 2)
Range("A1").Offset(k - 1, 2) = admissible(k, 2)

Next k

Sheets("candidat").Select

For l = 1 To x
If Range("A1").Offset(i, 6) = "Non" Then
nbnonadmissible = nbnonadmissible + 1
End If
Next l

ReDim Preserve nonadmissible(nbnonadmissible, 1 To 3)
For l = 1 To x
If Range("A1").Offset(i, 6) = "Non" Then
m = m + 1
admissible(m, 1) = Range("A1").Offset(i)
admissible(m, 2) = Range("A1").Offset(i, 1)
admissible(, 3) = Range("A1").Offset(i, 7)

End If


Next l

Sheet.Add
activatesheet.Name = "nonadmissible"

For n = 1 To m
Range("A1").Offset(n - 1) = admissible(n, 1)
Range("A1").Offset(n - 1, 1) = admissible(n, 2)
Range("A1").Offset(n - 1, 2) = admissible(n, 2)

Next n










End Sub