Function ControlExistForm(strControl As String) As Boolean

'Vérifie l'existant d'un control sur le formulaire actif
On Error GoTo ErrControlExist
Dim frm As Form
Dim ctl As Control
Set frm = Screen.ActiveForm
For Each ctl In frm.Controls
    If ctl.Name = strControl Then
        ControlExistForm = True
        Exit For
    End If
Next
Exit Function
ErrControlExist:
    MsgBox Err.Number & vbCrLf & vbCrLf & Err.Description, vbCritical

End Function