cnt = 1
Debug.Print "---------------------------------------"
Debug.Print "NB rev= " & Format(ActiveDocument.Revisions.Count)
On Error GoTo CONTINUER
'parcours
For i = ActiveDocument.Revisions.Count To 1 Step -1
    Set rev = ActiveDocument.Revisions(i)
    f = IsObject(rev)
    Debug.Print f
    If Not (rev Is Nothing) Then
        Debug.Print "ty=" & rev.Type
        If rev.Type = wdRevisionDelete Then
           rev.Accept
           cnt = cnt + 1
           Debug.Print cnt
        End If
        If rev.FormatDescription <> "" Then
           rev.Accept
           cnt = cnt + 1
           Debug.Print cnt
        End If
    End If
    'error