apparition d'un message d'erreur :(

apparition d'un message d'erreur du au références

Bonjours,
J'ai un problème avec mon code, qui est apparu subitement.
j'utilise a plusieur endroit un code similaire à:

Dim USF2 As Object
With USF2.CodeModule
code = ""
code = "" & vbCr
code = code & "Option Explicit" & vbCr
code = code & "Dim x As Byte" & vbCr
code = code & "" & vbCr
....

depuis ce matin vb ne reconnait plus "code"
j'ai toujours mon petit tas de référence coché mais le probléme persiste malgrés mes redémarage du pc et de excel

merci d'avance.