[URGENT] Problème avec une astuce de ce site

Bonjour tout le monde..
J'ai un problème avec une astuce de ce site :

Commencer la numérotation d'un champ au numéro de votre choix
http://www.trucsastuces.com/Astuces/193.php]

Le problème est que le code est donné sur une seule ligne et je ne sais pas comment le découper..
Grâce aux quelques bases que je possède j'ai tout de même réussi sauf que quelques problèmes percistent :

Option Compare Database
Function INIT_NUMERO(NOM_TABLE As String, NOM_CHAMP As String, NUMERO As Integer) As Boolean
On Error GoTo INIT_NUMERO_ERROR
Dim dbs As Object
Set dbs = Application.CurrentDb
dbs.Execute "INSERT INTO " & NOM_TABLE & " (" & NOM_CHAMP & ") "
!! SELECT "& (NUMERO-1) & " AS NUMERO;
dbs.Execute "DELETE * FROM " & NOM_TABLE & " *"
!! WHERE " & NOM_CHAMP & " = " & (NUMERO-1) & ";"
Set dbs = Nothing
INIT_NUMERO = True
Exit Function
INIT_NUMERO_ERROR: INIT_NUMERO = False
End Function

Les deux lignes que j'ai marqué "!! " sont celles qui apparaissent en rouge dans mon code..
Si quelqu'un pouvait résoudre mon problème, ça serait vraiment génial ! !
Merci quand même...
Seb!