XL pour MAC Formulaire ajout en derniere ligne

Sub enregistrer()
    Dim T, L, Buffer
    If [C7] = "" Then Exit Sub                                          ' Pas de Ref
    T = [C6:C15]                                                        ' Tranfert données dans array
    Buffer = T(1, 1): T(1, 1) = T(2, 1): T(2, 1) = Buffer               ' Inversion Ref/Produit
    With Sheets("Hoja1")
        L = 1 + .[A65500].End(xlUp).Row                                 ' Ligne où écrire
        .Cells(L, "A").Resize(1, 10).Value = Application.Transpose(T)   ' Transfert array dans cette ligne
    End With
End Sub

[C6:C15].ClearContents