VBA problem of RECSET.EOF: command not properly ended

Question

My code is

Public Sub GET_GROUPE_GESTION_CIBLE(ByRef strQ As String)
Dim RECSET As New ADODB.Recordset
Call CONNEXION_PEGASE("selection", "veri