Formule Excel : SOMMEPROD et CELLULE

Function formatCel(r As Range) As Variant
    ' ne sélectionner qu'une ligne ou une colonne
    Dim c As Range, reponse() As Long, i As Long
    Application.Volatile
    ReDim reponse(r.Cells.Count - 1)
    For Each c In r
        reponse(i) = (Right(c.NumberFormat, 1) = "%") * -1
        i = i + 1
    Next c
    If r.Columns.Count = 1 Then
        ' matrice verticale
        formatCel = Application.Transpose(reponse)
    Else
        ' matrice horizontale
        formatCel = reponse
    End If
End Function