By ref lors d'un appel de procedure

Sub copy()
Dim deniere_lign_source_502, deniere_lign_source_505, j As Integer
Dim fichier_source As String
fichier_source = ActiveWorkbook.Name
deniere_lign_source_502 = Workbooks(fichier_source).Sheets("502").Cells(Rows.Count, 5).End(xlUp).Row - 12
deniere_lign_source_505 = Workbooks(fichier_source).Sheets("505").Cells(Rows.Count, 5).End(xlUp).Row - 12

'selection de la zone dans le fichier source
Workbooks(fichier_source).Sheets("502").Range("A12:N" & deniere_lign_source_502).Select
Selection.copy

' copie dans le fichier compilation
Windows("compilation Fabricom.xls").Activate
Sheets("502").Range("A" & j).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
 xlNone, SkipBlanks:=False, Transpose:=False

Call remplissage("502", fichier_source, deniere_lign_source_502)


End Sub

Sub remplissage(feuille_a_remplir As String, fichier_source As String, derniere_ligne As Integer)
Dim i As Integer
For i = 0 To derniere_ligne
Sheets(feuille_a_remplir).Cells(j + i, 1) = Left(fichier_source, 13)
Next i
End Sub