erreur de compilation

Private Sub Bouton_OK_Click()
    Dim plagetravail As Range, cellule
    'traite uniquement les cellules ayant du texte et non les formulas
    On Error Resume Next
    Set plagetravail = Selection.SpecialCells _
        (xlCellTypeConstants, xlCellTypeConstants)
'   Majuscules
    If Option_Majuscules Then
        For Each cellule In plagetravail
        If Not cellule.HasFormula Then
            cellule.Value = UCase(cellule.Value)
        End If
        Next cellule
'   Minuscules
    ElseIf Option_Minuscules Then
        For Each cellule In plagetravail
            cellule.Value = LCase(cellule.Value)
'        End If
        Next cellule
    End If
'   1ère lettre en Majuscule
    If Option_1èreCapitale Then
        For Each cellule In plagetravail
            cellule.Value = Application.WorksheetFunction.Proper(cellule.Value)
'        End If
        Next cellule
    End If
'   Déchargement de la boite de dialogue
    Unload UserForm1
End Sub