Rien ne s'affiche....

Bonjour et joyeux noël à tous!
'
Je travaille actuellement pour mon service sur la compta. Je souhaite générer automatiquement les factures et je dois avouer, après avoir passé 2 jours à chercher sur les forums... que je m'y perds.
'
Je me suis très largement inspirée d'un post pour écrire la macro suivante. Mon souci est que rien ne s'affiche et dans le débogage il me surligne la ligne Sub macro 1().
L'inputbox est correctement générée.
'
'
Sub Macro1()
'
' Macro1 Macro
' AUTOMATISATION DES FACTURES
''
' Touche de raccourci du clavier: Ctrl+Shift+F
Dim nombre_ligne_feuille1 As Integer
Dim nombre_ligne_feuille2 As Integer
Dim nofact As Long
Dim ligne As Integer
Dim colonne As Integer
Dim position As Integer
Dim total As Single
'
position = 25
colonne = 13
total = 0
nombre_ligne_feuille1 = Sheets("rec_montants").Range("a65535").End(xlUp).Row
nombre_ligne_feuille2 = Sheets("facture").Range("a65535").End(xlUp).Row
'
'nettoyer la feuille précédente
Sheets("facture").Range("d11").ClearContents
Sheets("facture").Range("h9:h11").ClearContents
Sheets("facture").Range("c9").ClearContents
Sheets("facture").Range("a20").ClearContents
Sheets("facture").Range("a22").ClearContents
Sheets("facture").Range("a24:h" & nombre_ligne_feuille2 + 3).ClearContents
Sheets("facture").Range("g20").ClearContents
'
'instructions inputbox
nofact = InputBox("Saisir le code facture", "CODE FACTURE")
For ligne = 3 To nombre_ligne_feuille1
'
'boucle correspondance des plages entre les deux feuilles
If nofact = Cells(ligne, 1).Value Then
'
total = total + Sheets("rec_montants").Cells(ligne, 34).Value
'
[code]
Sheets("facture").Range("d11").Value = Sheets("rec_montants").Range(ligne, 1).Value
Sheets("facture").Range("h9").Value = Sheets("rec_montants").Range(ligne, 3).Value
Sheets("facture").Range("h10").Value = Sheets("rec_montants").Range(ligne, 7).Value
Sheets("facture").Range("h11").Value = Sheets("rec_montants").Range(ligne, 9).Value
Sheets("facture").Range("a20").Value = Sheets("rec_montants").Range(ligne, 12).Value
Sheets("facture").Range("a22").Value = Sheets("rec_montants").Range(ligne, 12).Value
Sheets("facture").Range("c9").Value = Sheets("rec_montants").Range(ligne, 12).Value
'
If colomn < 33 Then
Sheets("facture").Cells(position, 1).Value = Sheets("rec_montants").Range(1, colonne + 1).Value
Sheets("facture").Cells(position, 8).Value = Sheets("rec_montants").Range(ligne, colonne).Value
position = position + 1
End If
'
End If
'
Next ligne
'
Sheets("facture").Cells(position + 2, 6).Value = "Total dû"
Sheets("facture").Cells(position + 2, 6).Value = total
'
/code
End Sub
'
'
Je ne peux malheureusement pas vous transmettre le fichier, étant donné les règles de confidentialité.
'
Merci par avance!!