Function WriteLigne(ByVal Name As String, ByVal Ligne As Integer, ByRef Place As Integer) As Integer
Dim Plage1 As String
Dim Plage2 As String
Dim Size As Integer
Size = Application.CountA(Range("1:1"))
For x = 1 To Size
Plage1 = Chr(65 + (x - 1)) & Place
Plage2 = Chr(65 + (x - 1)) & Ligne
Workbooks("Repertoire.xlsm").Worksheets("Feuil1").Range(Plage1) = Range(Plage2)
Next x
End Function